Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Kinderschutz
Autor: xmex
Datum: 29.01.03 19:31
Hi leutz, Ich will einen Kinderschutz machen. --------- Private Sub Timer1_Timer() Dim Startzeit As Date Dim Endzeit As Date Startzeit = "19:00:00" Endzeit = "20:00:00" 'Textfeld ist die Aktuelle Zeit Text2.Text = Time If Startzeit < Time Then 'Wenn nach 19 Uhr dann bla bla 'Anweisung MsgBox "Tja Leider ist es nach nach 19 Uhr" MsgBox "Der Kinderschutz wurde aktiviert !" End End If End Sub ------ Also das wenn es nach 19 Uhr ist die Message kommt das klappt ja ganz gut. Aber ich will ja das der Kinderschutz zwischen 19 - 20 Uhr aktiv ist. Cya

Kinderschutz	532	xmex	29.01.03 19:31
Re: Kinderschutz	383	Dieter	29.01.03 20:41
Re: Kinderschutz	357	xmex	29.01.03 21:49

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