Dim a as date
DIM B AS Date
a = system.datetime.now
B = cdate (chKEXPORT.TEXT)
DIM TS AS System.TimeSpan
Ts = a.subtract (b)
DIM PP AS Integer
PP = CINT (Ts.TotalDays)