Re: Systemzeit für "Stoppuhr"
08.12.2002 11:29:48
Nepumuk
Hallo Gerald,
ich hab dir mal eine Stoppuhr gebastelt.Option Explicit
Dim starttime As Long, Wartezeit As Date
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Public Sub Start()
starttime = timeGetTime
Anzeige
End Sub
Public Sub Lap()
Dim laptime As Long, Stunden As Long, Minuten As Long, Sekunden As Long
laptime = timeGetTime - starttime
If starttime <> 0 Then
Stunden = laptime \ 3600000
laptime = laptime - Stunden * 3600000
Minuten = laptime \ 60000
laptime = laptime - Minuten * 60000
Sekunden = laptime \ 1000
laptime = laptime - Sekunden * 1000
MsgBox Format(Stunden, "00") & ":" & Format(Minuten, "00") & ":" & _
Format(Sekunden, "00") & "," & CStr(laptime), 0, "Zwischenzeit"
End If
End Sub
Public Sub Ende()
Dim stoptime As Long, Stunden As Long, Minuten As Long, Sekunden As Long
stoptime = timeGetTime - starttime
If starttime <> 0 Then
Application.OnTime Wartezeit, "Anzeige", , False
Cells(1, 1) = ""
Stunden = stoptime \ 3600000
stoptime = stoptime - Stunden * 3600000
Minuten = stoptime \ 60000
stoptime = stoptime - Minuten * 60000
Sekunden = stoptime \ 1000
stoptime = stoptime - Sekunden * 1000
MsgBox Format(Stunden, "00") & ":" & Format(Minuten, "00") & ":" & _
Format(Sekunden, "00") & "," & CStr(stoptime), 0, "Gesamtzeit"
End If
starttime = 0
End Sub
Private Sub Anzeige()
Dim displaytime As Long, Stunden As Long, Minuten As Long, Sekunden As Long
displaytime = timeGetTime - starttime
Stunden = displaytime \ 3600000
displaytime = displaytime - Stunden * 3600000
Minuten = displaytime \ 60000
displaytime = displaytime - Minuten * 60000
Sekunden = displaytime \ 1000
displaytime = displaytime - Sekunden * 1000
Cells(1, 1) = Format(CStr(Stunden), "00") & ":" & Format(CStr(Minuten), "00") _
& ":" & Format(CStr(Sekunden), "00") & "," & CStr(displaytime)
Wartezeit = Now + TimeSerial(0, 0, 1)
Application.OnTime Wartezeit, "Anzeige"
End Sub
Gruß
Nepumuk