> Dim lnDateAsTicks As Double = 0 > Dim ldNewDate As Date > Dim ldDate As Date = Date.Now > MessageBox.Show(ldDate.ToString) > lnDateAsTicks = ldDate.Ticks > ldNewDate.AddSeconds(lnDateAsTicks) > MessageBox.Show(ldNewDate.ToString) >>
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))Make sure you store your result as Long (Int64) otherwise you will get an overflow error.