1. Copy & Paste the function in Some PRG
2. In Your Main PRG, or Init Method of the from Put:

IF .NOT. UPPER(YourPrgName) $ UPPER(SET("PROCEDURE"))
   SET PROCEDURE TO YourPrgName ADDITIVE
ENDIF

3. 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

4. In LostFocus (or InterActiveChange) event Of the Text2

IF .NOT. EMPTY(this.Value) .AND. .NOT. EMPTY(thisform.Text1.value)
   thisform.text3.value = CalcAge(thisform.text1.value, this.Value)
ENDIF

>hi,
>thank you ,
>
>just how i can use your function at myform .
>i need the steps.
>

>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.