Dim tt as Long
tt = hours * DateTime.TicksPerHour + minutes * DateTime.TicksPerMinute
Dim NowDay As Long
NowDay = DateTime.DateParse(DateTime.Date(DateTime.Now))
Dim CurrentTime As Long
CurrentTime = DateTime.Now - NowDay
If tt > CurrentTime Then
'Time has not passed, schedule for today
NextRunTime = NowDay + tt
Else 'Schedule for tomorrow
NextRunTime = NowDay + DateTime.TicksPerDay + tt
End If
Log("NextRunTime:" & NextRunTime & " Date:" & DateTime.Date(NextRunTime) & "Time:" & DateTime.Time(NextRunTime))
StartServiceAt("",NextRunTime,True)