dim text1, text2, text3 as xpTextObject
dim Date1, Date2 as Date
dim i, j as double
Self.GetObjectByName("Text1", text1)
Self.GetObjectByName("Text2", text2)
Self.GetObjectByName("Text3", text3)
Date1 = text1.text
Date2 = text2.text
i = CStr(Date1.Subtract(Date2).Days / 365.25)
j = CInt(Math.Truncate(i))
text3.text = j
#XPression