AW: ganz genaue Zeitangabe; Berechnung genaue Dauer
12.11.2011 07:35:05
fcs
Hallo Peter,
eigentlich bist du ja "nur" an der Laufzeit der Makros interessiert. Da spielt die eigentliche Uhrzeit zum Startzeitpunkt ja keine so große Rolle. Da kann man auch die sekundengenaue Systemzeit verwenden.
Die millisekundengenaue Windowslaufzeit wird jeweils in Variablen gespeichert. Die millisekunden genaue Endzeit wird dann aus der Startzeit und den zwischengespeicherten Werten berechnet.
Gruß
Franz
Option Explicit
Private dblTime As Double, dblStart_ms As Double, dblEnd_ms As Double
Private Declare Function GetTime Lib "winmm.dll" _
Alias "timeGetTime" () As Long
Sub aaTest()
dblTime = Time 'Startzeit merken (Sekunden genau, Systemzeit)
dblStart_ms = GetTime 'Startzeit merken (Millisekunden genau, Windows-Laufzeit)
Sheets("Cockpit").Range("A1") = dblTime
' Sheets("Cockpit").Range("B1") = dblStart_ms / 1000 'Startzeit in Sekunden
MsgBox "Ein bischen Warten"
dblEnd_ms = GetTime 'Endezeit merken (Millisekunden genau, Windows-Laufzeit)
Sheets("Cockpit").Range("A2") = dblTime + (dblEnd_ms - dblStart_ms) / 1000 / 60 / 60 / 24
' Sheets("Cockpit").Range("B2") = dblEnd_ms / 1000 'Endezeit in Sekunden
End Sub