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. |
Beispiel:
Dim iHH, iMM, iSS, iMS
DecodeTime(Now, iHH, iMM, iSS, iMS)
' returns eg. iHH = 6, iMM = 12, iSS = 13, iMS = 55
|
|