hi,
ok thanks for advice,

i need another things ,how i can put year,month and date at my thisform.text3.value as under

SET DATE TO british
 a = (thisform.text1.value)
 b = (thisform.text2.value)

NumYear = Year(b)-Year(a)
NumMonth = Month(b)-Month(a)
NumDay = Day(b) - Day(a)

If NumDay < 0
NumMonth = NumMonth - 1
Numday = (Gomonth(a,1)-Day(Gomonth(a,1)) - a )+ Day(b)
EndIf
If NumMonth < 0
NmYear = NumYear - 1
NumMonthi = Abs(NumMonth)
EndIf

? NumYear, NumMonth, NumDay

&&&thisform.text3.Value=numyear+nummonth+numday &&&

thanks
best regards.
m.qasem