Public Shared Function GetAndroidDateFromDatetime(dt As DateTime) As Long
Dim dtUnix As DateTime = New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc)
Dim ts As New TimeSpan
ts = dt.Subtract(dtUnix)
Return ts.TotalMilliseconds
End Function
Public Shared Function GetDatetimeFromAndroidDate(lngDate As Long) As DateTime
Dim dtUnix As DateTime = New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc)
Return dtUnix.AddMilliseconds(lngDate)
End Function