Android Question Time format & milliseconds

Sub Process_Globals
   Type PeriodWithMs (p As Period, ms As Int)
End Sub

Sub Globals
   
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Dim time1 As Long = DateTime.Now
   Dim time2 As Long = DateTime.TimeParse("23:40:00")
   Dim pm As PeriodWithMs = PeriodBetweenWithMilliseconds(time1, time2)
   Log(FN(pm.p.Hours) & ":" & FN(pm.p.Minutes) & ":" & FN(pm.p.Seconds) & "." & _
     NumberFormat(pm.ms, 3, 0))
End Sub

Sub FN(n As Int) As String
   Return NumberFormat(n, 2, 0)
End Sub

Sub PeriodBetweenWithMilliseconds(time1 As Long, time2 As Long) As PeriodWithMs
   Dim p As Period = DateUtils.PeriodBetween(time1, time2)
   Dim ms As Int = (time2 - time1) Mod DateTime.TicksPerSecond
   If ms < 0 Then ms = ms + 1000
   Dim pm As PeriodWithMs
   pm.p = p
   pm.ms = ms
   Return pm
End Sub