Zitat:
Original geschrieben von 47x3
Dim heute ' Variable deklarieren.
heute = Now ' Aktuelles Datum und Uhrzeit.
Text1.Text = Format(heute, "dddd hh:mm")
und wie sag ich ihm jetzt, dass alle 20s gefragt werden soll ob "samstag 23:50" ist wenn dann arbeite (und fang nachher wieder zum abfragen an)?
|
so ungefähr:
Private Sub Timer1_Timer()
zeit = Format$(Now, "hh:nn")
zeit_sync = GetINISetting(Inifile, "SETTINGS", "TIME_SYNC", "33:33")
If zeit = zeit_sync Then
CALL Update
End If
End Sub
Timer auf 59600 setzen