Sub AppStart (Form1 As Form, Args() As String)
Dim p As Period
p.Initialize
p.Hours=5
Dim t As Long= DateUtils.AddPeriod(DateTime.Now,p)
Dim s As Long = DateTime.Now
Log("t="&(t-s))
Log(ConvertMillisecondsToString(t-s))
End Sub
Sub ConvertMillisecondsToString(t As Long) As String
Dim hours, minutes, seconds As Int
hours = t / DateTime.TicksPerHour
minutes = (t Mod DateTime.TicksPerHour) / DateTime.TicksPerMinute
seconds = (t Mod DateTime.TicksPerMinute) / DateTime.TicksPerSecond
Return $"$1.0{hours}:$2.0{minutes}:$2.0{seconds}"$
End Sub