Funktionen, die zwei Zeitunterschiede berechnen
'*********************************
'|| functionTimediff (SBEGIN, SEND)
'|| Diese Funktion berechnet die Differenz zwischen zweimal und kann direkt verwendet werden, ohne sie zu ändern.
'|| Autor: machinecat2001/10/26
'*********************************
'*********************************
HINWEIS: Zunächst müssen Sie die Größe zwischen SBEGIN und vom Benutzer gesendeten Senden ermitteln
'Der Zeitunterschied zwischen beiden kann über die Datadiff -Funktion ohne komplizierte Zeitkonvertierung erhalten werden
'*********************************
FunktionTimediff (SBEGIN, SEND)
Dimihourb, iMinuteb, iscondb, iMinisecondb
Dimihoane, Iminutee, Isconde, iMinisekonde
DimdTimeB, dTimee, dimediff
Dimihour, Iminute, Iscond, iMinisekunde
IHOURB = CLNG (links (Sbegin, 2))
iMinuteb = clng (Mid (Sbegin, 4,2))
isCondb = clng (Mid (Sbegin, 7,2))
iMinisecondb = clng (Mid (Sbegin, 10,4))
IHOURE = CLNG (links (Senden, 2))
IMinutee = clng (Mid (Senden, 4,2))
isconde = clng (Mid (send, 7,2))
iMiniseconde = clng (Mid (send, 10,4))
DTIMEB = IHOURB*3600+IMINUTEB*60+ISECONDB+IMINISECONDB/1000
dTIMEE = IHOURE*3600+IMinutee*60+isconde+iminiseconde/1000
dimediff = dTimee-dimeB
iHour = int (dimediff/3600)
dtimediff = dtimediff-iHour*3600
iMinute = int (dimediff/60)
dtimediff = dtimediff-Iminute*60
iscond = int (dtimediff)
dtimediff = dtimediff-int (dtimediff)
iMinisecond = dtimediff
Timediff = iHour & "Stunden" & iMinute & "Minuten" & iscond & formatnumber (iMinisecond, 3) & "Sekunden"
Endfunktion