Public Sub NextTimeRun(sHour As Int, sMinute As Int) As Long
DateTime.DateFormat = "dd/MM/yyyy HH:mm:ss"
Log("AlarmHours: " & sHour)
Log("AlarmMinutes: " & sMinute)
Dim today As Long
today = DateTime.DateParse(DateTime.Date(DateTime.Now)) 'Sets today at 12:00 AM
alarm = today + sHour * DateTime.TicksPerHour + sMinute * DateTime.TicksPerMinute
If alarm < DateTime.Now Then alarm = DateTime.Add(alarm, 0, 0, 1)
TimerDate = DateTime.Date(alarm) & " " & DateTime.Time(alarm)
Log(DateTime.Date(alarm) & " " & DateTime.Time(alarm)) 'check the logs to see the set date and time
'Calculate time to alarm
Dim h, m As Int
h = Floor((alarm - DateTime.Now) / DateTime.TicksPerHour)
m = ((alarm - DateTime.Now) - h * DateTime.TicksPerHour) / DateTime.TicksPerMinute
'ToastMessageShow("The next site query will be performed after: " & NumberFormat(h, 2, 0) & " hour(s) and " & NumberFormat(m, 2, 0) & " minute(s)", True)
TimeRemaining = NumberFormat(h, 2, 0) & ":" & NumberFormat(m, 2, 0)
Dim isleepTime As Long = DateTime.Now + ((h*60*60*1000)+(m*60*1000))
Log("SleepTime: " & isleepTime)
Return isleepTime
End Sub