✔ Zeit bis zur vollen stunde

[Ichbinalex]

Ich möchte gerne die Zeit bis zur nächsten vollen Stunde angegeben haben. Beim Probiern des Programms. Kommt "Objekt erforderlich". Woran liegt das?

Private Sub Timer2_Timer()
Text1.Text = Format(Now, "HH:NN:SS")
Label29 = "Uhrzeit : " + Text1.Text
Minuten = 60 - CDbl(Now.Minute)
Sekunden = 60 - CDbl(Now.Second)
Label30.Caption = Minuten & ":" & Sekunden

 

[Dario Linsky]

Hi,

in welcher Zeile tritt diese Meldung denn auf?

Grüße, D.

 

[Ichbinalex]

Hab das ganze nun so gemacht

Label30.Caption = 60 - Minute(Now) & " : " & 60 - Second(Now)

Nun funktioniert es.