Sub AppStart (Args() As String)
Log(HoursMinutesAndSecondsBetweenToTicks(DateTime.Now, DateTime.DateParse("02/23/2021")))
End Sub
Sub HoursMinutesAndSecondsBetweenToTicks (StartTime As Long, EndTime As Long) As String
Return ConvertMillisecondsToString(EndTime - StartTime)
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