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