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
|
|