Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: ZeitUmstellung
Autor: Daumeister
Datum: 05.09.01 21:50
Hallo Braindead, für dieses beispiel brauchst du eine einfach Form und einen Timer mit dem Namen "TIMER1". Wenn es noch Probleme geben sollte, melde dich Kurz mfg Daumeister Private Sub Form_Load() 'Aktiviere Timer Timer1.Interval = 1000 Timer1.Enabled = True 'Schreib aktuelle Zeit und Datum Timer1.Tag = Time & " " & Date End Sub '------------------------------------------------------------------------------------------------------------------- Private Sub Timer1_Timer() Dim Diff 'Vergleicht Geschriebenes Datum vor 1000 Milli Sekunden Diff = DateDiff("s", Timer1.Tag, Time & " " & Date) 'Ist Differenz über 30 Sekunden mache ... If Diff > 30 Or Diff < -30 Then MsgBox "Zeitänderung", vbCritical, "ACHTUNG" End If 'Schreib aktuelle Zeit und Datum Timer1.Tag = Time & " " & Date End Sub

ZeitUmstellung	87	Braindead	05.09.01 08:23
Re: ZeitUmstellung	87	Daumeister	05.09.01 21:50

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen