Posted By
Mark Rodenburg
02-17-2019 21:50
Found In
Egroup:
Graphics
\
view thread
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 = ...
|