Hallo Excelgemeinde,
ich hoffe auf eure Hilfe bei folgendem Problem.
In einer UF habe ich 3 Textboxen und einen ToggleButton. Betätige ich den ToggleButton so wird die aktuelle Uhrzeit in eine Textbox geschrieben. In einer anderen wird nun die Laufzeit angezeigt. Betätige ich wieder den ToggleButton, so wird die Stopzeit in die 3. Textbox geschrieben. Das funzt soweit auch ganz gut, aber......
Leider kommt es dabei vor, dass die Addition von Startzeit und Laufzeit nicht mit der Stopzeit übereinstimmt.
Aber genau dies sollte mein Code tun!?!?!
Kann mir jemand helfen?
Hier mein bisheriger Code:
Option Explicit
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Public Function Now() As Double
Dim Jetzt As SYSTEMTIME
GetLocalTime Jetzt
With Jetzt
Now = DateSerial(.wYear, .wMonth, .wDay) + TimeSerial(.wHour, .wMinute, .wSecond) + _
(1# / (24# * 3600000#)) * .wMilliseconds
End With
End Function
Private Sub ToggleButton1_Click()
Dim Start As Double, Ende As Double, Zeit As Double
If ToggleButton1 Then
tbxStop.Value = ""
ToggleButton1.Caption = "Stop"
Start = Round(Now(), 6)
tbxStart.Value = Format(Start, "hh:mm:ss")
Do
Zeit = Round(Now() - Start, 6)
tbxZeit.Value = Format(Zeit, "hh:mm:ss") 'Format(Now() - Start, "hh:mm:ss")
DoEvents
If Not ToggleButton1 Then Exit Do
If Not frmZeitmessung.Visible Then Exit Do
Loop
Else
Ende = Round(Now() - Start, 6)
tbxStop.Value = Format(Ende, "hh:mm:ss")
ToggleButton1.Caption = "Start"
End If
End Sub
Ich hoffe auf eure Hilfe!Gruß
Dirk R.