Sub AppStart (Args() As String)
Log(DateTime.Date(ClarionToTicks(4)))
Log(DateTime.Date(ClarionToTicks(5)))
Log(DateTime.Date(ClarionToTicks(80328)))
Log(DateTime.Date(ClarionToTicks(80329)))
End Sub
Sub ClarionToTicks (Clarion As Long) As Long
Dim t As Long = DateUtils.SetDate(1801, 1, 1)
Dim p As Period
p.Days = Clarion - 4
Return DateUtils.AddPeriod(t, p)
End Sub