IF .NOT. UPPER(YourPrgName) $ UPPER(SET("PROCEDURE")) SET PROCEDURE TO YourPrgName ADDITIVE ENDIF3. In LostFocus (or InterActiveChange) event Of the Text1
IF .NOT. EMPTY(this.Value) .AND. .NOT. EMPTY(thisform.Text2.value) thisform.text3.value = CalcAge(this.Value, thisform.text2.value) ENDIF
IF .NOT. EMPTY(this.Value) .AND. .NOT. EMPTY(thisform.Text1.value) thisform.text3.value = CalcAge(thisform.text1.value, this.Value) ENDIF>hi,
>i want to insert at (thisform.text1.value...DATE(1963, 3, 29)) > (thisform.text2.value...DATE(2004,10,25)) > >result at thisform.text3.value as.. 39 > > >>thanks.