German Hintergrundservice immer um 18:00 einmal ausfühhren

Sub Service_Start (StartingIntent As Intent)


Dim now As Long
now=DateTime.now
DateTime.DateFormat = ("dd.MM.yyyy")


If DateTime.GetHour(now) = 18 Then
If DateTime.GetMinute(now) = 00 Then
' Hier steht dann die Aktion die ausgeführt werden soll
Else
End If
Else
End If


' Startzeit festlegen
If DateTime.GetHour(now) < 18 Then
startzeit = DateTime.DateParse(DateTime.Date(DateTime.now))+(1000*60*60*18) 'Sets today at 18:00 AM
Else
startzeit = DateTime.DateParse(DateTime.Date(DateTime.now))+(1000*60*60*42) 'Sets today at 18:00 AM plus 24 Stunden für morgen
End If

StartServiceAt("", startzeit, False)

End Sub

Click to expand...