✔ If - Abfrage: Format(Now, "hh:mm:ss") vergleichen

[The Dark Listener]

Hallo Allerseits!

Ich hab schon kräftig die Suche benutzt, aber bisher keine Lösung zu dem Prob gefunden...

Mein Problem:

Ich habe in der Variable Va_Zeit eine Zeit in folgendem Format angegeben: hh:mm:ss
Nun will ich diese Zeit mit der aktuellen Zeit ( Format(Now, "hh:mm:ss") ) vergleichen. Dafür ich hab ich einen Timer erstellt, der mit einem Intervall von 1ms (auch schon mit 1000ms versucht), folgende If-Abfrage durchführt:

Private Sub Timer1_Timer()
  If Va_Zeit = Format(Now, "hh:mm:ss") Then
    'Mach irgendwas...Z.B. MsgBox....
  End If
End Sub

Nur leider schafft es VB 6.0 anscheinend nicht, die Sekunden zu vergleichen. Wenn ich das ganze ohne Sekundenangabe mache, funktioniert alles einwandfrei. Doch leider brauche ich den Sekunden genauen Ereignisaufruf.

Irgendwelche Vorschläge?
Danke im Vorraus!

Mfg TDL

 

[wincnc]

Also der folgende Code funktioniert bei mir einwandfrei:

Dim Va_Zeit As Date

Private Sub Form_Load()
Va_Zeit = "10:35:12"
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If Va_Zeit = Time Then
MsgBox "Hallo"
End If
End Sub

 

[The Dark Listener]

Ahh vielen Dank für den Code - Ausschnitt...
Autsch... Ich hab doch tatsächlich ausgerechnet bei der Zeit - Variable das as Date vergessen...
Ich bin wirklich gar net darauf gekommen, da es ja mit den Minuten funktionierte... *seufs* Dummheit ist eine zeitaufwendige Sache... ^^

Mfg TDL