Rundungspoblem bei Round-Funktion
14.08.2021 09:15:09
Martin
ich habe ein Problem mit der Round-Funktion bei folgendem Makro:
Sub ZehntelSekunden()
Call Delay(5000)
End Sub
Sub Delay(lngMilliSeconds As Long)
Dim sngStopp As Single
Dim dblSeconds As Double
sngStopp = Timer() + lngMilliSeconds / 1000
Do
DoEvents
dblSeconds = Math.Round(Timer - Int(Timer), 1)
[A1] = dblSeconds
Debug.Print dblSeconds
Loop Until Timer > sngStopp
End Sub
Viele Grüße
Martin