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)