Dim TheDate As String ' Dichiara le variabili.
Dim Msg
TheDate = DateAdd("S", 60, Time)
Debug.Print Time
Debug.Print TheDate
Do While Time < TheDate
Debug.Print TheDate & " - " & Time
Loop
(timertemporizzatoresenzatimer.html)- by Paolo Puglisi - Modifica del 25/3/2019