Sub App_Start
Msgbox(TicksToTDateTime(TimeAdd(DateParse("01/01/1900"),18,0,0)))
Msgbox(TicksToTDateTime(TimeAdd(DateParse("01/01/1996"),0,0,0)))
Msgbox(Date(TDateTimeToTicks(2.75)) & " " & Time(TDateTimeToTicks(2.75)))
Msgbox(Date(TDateTimeToTicks(35065)) & " " & Time(TDateTimeToTicks(35065)))
End Sub
Sub TicksToTDateTime(ticks)
dt = ticks - DateParse("12/30/1899") ' change date start
days = Int(dt/cTicksPerDay)
dayfraction = (dt Mod cTicksPerDay) / cTicksPerDay
Return days + dayfraction
End Sub
Sub TDateTimeToTicks(TDateTime)
Return TDateTime * cTicksPerDay + DateParse("12/30/1899")
End Sub