>> Dim tokenDate As Date = Date.Parse("1/1/1900") >> Dim result As Long >> >> 'This is the value you would want to store >> result = Date.Now.Subtract(tokenDate).TotalSeconds >> >> 'Convert the stored value back to a date >> MsgBox(tokenDate.AddSeconds(result)) >>>>
> Dim lnResult As Long > Dim ldTokenDate As Date = Date.Parse("1/1/1900") > Dim ldDate As Date = Date.Now > Dim ldNewDate As Date = Date.Now > MessageBox.Show(ldDate.ToString) > lnResult = ldDate.Subtract(ldTokenDate).TotalSeconds > MessageBox.Show(lnResult.ToString) > ldNewDate = ldTokenDate.AddSeconds(lnResult) > MessageBox.Show(ldNewDate.ToString) >I wonder if it is rounding seconds.