DecodeTime

Top 

sub DecodeTime(dTimeValue As DateTime, ByRef Hour As Integer, ByRef Min As Integer, ByRef Sec As Integer, ByRef MSec As Integer)

 

Gibt von dTimeValue die Werte Stunden, Minuten, Sekunden und Millisekunden zurück.

 

Parameter

 

dTimeValue ... DateTime-Ausdruck.
Hour ... Integer-Wert.
Min ... Integer-Wert.
Sec ... Integer-Wert.
Msec ... Integer-Wert.

 

Beispiel:

Dim iHH, iMM, iSS, iMS
 
DecodeTime(Now, iHH, iMM, iSS, iMS)
' returns eg. iHH = 6, iMM = 12, iSS = 13, iMS = 55