DateTime.SetTimeZone(0)
Log(TicksToOleDate(OleDateToTicks(42119.1810185185)))
Log(TicksToOleDate(OleDateToTicks(12119.18)))
Sub TicksToOleDate(ticks As Long) As Double
ticks = ticks - DateUtils.SetDate(1899, 12, 30)
Return ticks / DateTime.TicksPerDay
End Sub
Sub OleDateToTicks(ole As Double) As Long
Dim origin As Long = DateUtils.SetDate(1899, 12, 30)
origin = DateTime.Add(origin, 0, 0, Floor(ole))
origin = origin + DateTime.TicksPerDay * (ole - Floor(ole))
Return origin
End Sub