Angabe von Uhrzeit, die mitläuft
01.08.2003 08:04:38
ThomasJ
habe gestern hier gefragt, wie man die Uhrzeit darstellen kann, die mitläuft. Mir wurde geschrieben, es sei zu aufwendig, etc.
Also habe ich mich mal hingesetzt, gesucht und rumprobiert. Und das kam dabei heraus:
Public zeitneu As Date
Sub clock()
Start.Datum.Caption = Format(Date, "dddddd ") & Format(Time, "hh:nn:ss") & " Uhr"
zeitneu = Now + TimeValue("00:00:01")
Application.OnTime zeitneu, "clock"
End Sub
Das in einem Modul, "Start" ist die Userform und "Datum" das Label.
Diese Zeilen solltet ihr zum Beenden auch noch einbauen:
Application.OnTime zeitneu, "clock", , False
Unload Me
Wie ihr seht funktioniert das auch ohne Probleme.
Das einzige, was mich noch stört ist, dass sich der Mauszeiger manchmal (selten) kurz (sher kurz) in die Eieruhr verwandelt (praktisch für ms).
Kann man dagegen etwas machen???
Gruß Thomas