DecodeTime

Top  Previous  Next

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

 

Breaks a DateTime value into hours, minutes, seconds, and milliseconds.

 

Parameters

 

dTimeValue ... DateTime expression.
Hour ... Integer value. Hours of the passed dTimeValue parameter.
Min ... Integer value. Minutes of the passed dTimeValue parameter.
Sec ... Integer value. Seconds of the passed dTimeValue parameter.
Msec ... Integer value. Milliseconds of the passed dTimeValue parameter.

 

Example:

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




Translate document: