>>You have to add the ticks to an existing date. What are you using at your token date?
>>
>>Here is what I was thinking:
>>

>>        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.
>
>This is not working. The initial date I have is not always the same after the dual conversion. Sometimes, I have a difference of one second:
>
>

>        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.