Dim MyTime As Int =4
Dim Starttime, Endtime As String
Endtime =$"$2.0{0}:$2.0{MyTime}:$2.0{0}"$ '00:04:00
Dim hours=0 As Int, minutes=3 As Int, seconds =31 As Int
Starttime = $"$2.0{hours}:$2.0{minutes}:$2.0{seconds}"$ '00:03:31
Dim CurDate As String =DateTime.Date(DateTime.Now)
Dim p As Period = DateUtils.PeriodBetween(DateTime.DateTimeParse(CurDate,Starttime), _
DateTime.DateTimeParse(CurDate,Endtime) )
Log($"${p.Hours} hrs ${p.Minutes} min ${p.Seconds} sec"$ ) 'displays: 0 hrs 0 min 29 sec