Sub Service_Start (StartingIntent As Intent)
ScheduleNextServiceStart(0,01) 'schedule service restart ..
StopService("")
End Sub
Sub ScheduleNextServiceStart(Hours As Int, Minutes As Int)
Dim CurrentTime, Today, NextRunTime, HourMinTicks As Long
DateTime.DateFormat = "dd-MM-yyyy"
HourMinTicks = Hours * DateTime.TicksPerHour + Minutes * DateTime.TicksPerMinute
'calc ticks up to start of today ... 00:00am
Today = DateTime.DateParse(DateTime.Date(DateTime.Now))
'calc ticks up to current/present time
CurrentTime = DateTime.Now - Today
If HourMinTicks > CurrentTime Then
'Time has Not passed, schedule For Today
NextRunTime = Today + HourMinTicks
Else 'Schedule for tomorrow
NextRunTime = Today + DateTime.TicksPerDay + HourMinTicks
End If
StartServiceAt("",NextRunTime,True)
Log("NextRunTime:" & NextRunTime & " Date:" & DateTime.Date(NextRunTime) & "Time:" & DateTime.Time(NextRunTime))
End Sub