Stoppuhr in UF

Hallo Excelgemeinde,
ich bin am verzweifeln und brauche eure Hilfe.
Ich möchte folgendes in einer Userform realisieren:
In der Userform möchte ich durch betätigen eines CommandButton eine Stoppuhr starten.
Das funzt auch schon ganz gut, aber......
Ich muss die gestoppte Zeit anders darstellen, als man das gewohnt ist und genau das bekomme ich nicht hin! :o(
Die gestoppte Zeit soll dauernd laufen, und sie muss in einer Minute 100 Einheiten zählen und nicht wie gewohnt 60 Einheiten.
Dies ist notwendig, um eine Zeit nach REFA zu ermitteln.
Auch die Aktualisierung muss dann schneller als 1 Sekunde erfolgen, damit jede Einheit auch angezeigt wird.
Und noch eine Frage:
Ist diese Art, wie in meiner Mappe unten, überhaupt genau genug? Da ja die Einheiten schneller zählen, habe ich Angst, das die gestoppte Zeit dann ungenau wird?
Ich hoffe ich habe mich einigermaßen klar ausgedrück!?!?!?
Hier die bisherige Mappe:
https://www.herber.de/bbs/user/64286.xls
Ich hoffe mir kann geholfen werden.
Gruß
Dirk

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Alfons,
danke für deinen Hinweis. Ich habe folgendes in einem anderen Forum dazu gelesen:
"Immer wieder sehe ich Code um GetTickCount oder Aussagen, die sich um den Überlauf von GetTickCount drehen, der alle 49,7 Tage entsteht."
Ich habe nun einen anderen Code in meiner Datei eingebaut. Aber ich habe nun ein anderes Problem.
Im Code bei
lbREFA.Caption = Format((NowMilli() - RefaStart) * 10 / 6, "ss")
hätte ich gerne, dass die sekunden über die 60 einfach immer weiter zählen.
Ändere ich die Zeile in:
lbREFA.Caption = Format((NowMilli() - RefaStart) * 10 / 6, "000.0")
Bleibt der Zähler auf "000.0" stehen.
Kannst du mir helfen?
Hier mein 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 NowMilli() As Double
Dim Jetzt As SYSTEMTIME
GetLocalTime Jetzt
With Jetzt
NowMilli = DateSerial(.wYear, .wMonth, .wDay)
NowMilli = NowMilli + TimeSerial(.wHour, .wMinute, .wSecond)
NowMilli = NowMilli + (1# / (24# * 3600000#)) * .wMilliseconds
End With
End Function

Private Sub ToggleButton1_Click()
If ToggleButton1 Then Call Stoppuhr
End Sub

Private Sub Stoppuhr()
Dim ZeitStart As Double
Dim RefaStart As Double
lbStop.Caption = ""
ZeitStart = NowMilli()
RefaStart = NowMilli()
lbStart.Caption = Format(ZeitStart, "hh:mm:ss")
Do
lbLauf.Caption = Format(NowMilli() - ZeitStart, "hh:mm:ss")
lbREFA.Caption = Format((NowMilli() - RefaStart) * 10 / 6, "ss")
DoEvents
If Not ToggleButton1 Then Exit Do
Loop
lbStop.Caption = Format(NowMilli(), "hh:mm:ss")
End Sub

Gruß
Dirk

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Stoppuhr in UF

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread