PDA

Vollständige Version anzeigen : Stundendifferenz berechnen


wein234
10.07.2006, 14:06
Hallo,
folgender Code bringt als Ergebnis 0.
Anfang=TimeValue(now())
Ende = TimeValue(now())
Stunden = DateDiff("h", Anfang, Ende)
Was ist daran falsch ?

Paul.Ostermeier
10.07.2006, 14:24
nix, die Differenz zwischen Uhrzeit(Now()) und Uhrzeit(Now()) ist eben 0 !?

MfG
Paul

wein234
10.07.2006, 14:39
Hallo,
ich möchte damit die Laufzeit eines Programmes ermitteln. Anfang wird beim Start des Programms gesetzt und Ende entsprechend am Ende vom Programm,
so dass immer eine Differenz entsteht und diese Differenz möchte ich ermitteln !
Gruss

Paul.Ostermeier
10.07.2006, 15:02
wie sieht denn der Code zwischen
>Start
und
>Ende
aus
dass man den in Stunden messen kann ?

MfG
Paul

Paul.Ostermeier
10.07.2006, 15:09
probier's mal damit
'//
Private Declare Function GetTickCount Lib "kernel32" () As Long


'///
Dim iStart As Long
Dim tStart As Long

tStart = GetTickCount ' Maximal 49 Tage wegen Typ Long in Millisekunden ...
'Routine
tEnde = GetTickCount

MsgBox "Differenz in Stunden = " & (tEnde - tStart) / (360000)

MfG
Paul