devxlogo

Measuring Small Increments of Time in VB

Measuring Small Increments of Time in VB

In Visual Basic, it is not possible to measure time with more precision than one second. This code allows the user to measure time passed in increments less than one second (tenths, hundredths, or milliseconds, depending on the format string).

   Public Function ShowTime() As String    Dim dCurSeconds As Double    Dim dHours As Double    Dim dMinutes As Double    Dim dSeconds As Double        dCurSeconds = Timer()             ' Returns the number of seconds elapsed since midnight    dHours = dCurSeconds  3600   ' Keeps the number of hours elapsed since midnight    dMinutes = (dCurSeconds - dHours * 3600)  60                  ' Keeps the number of minutes elapsed in last hour    dSeconds = dCurSeconds - dHours * 3600 - dMinutes * 60  ' Keeps the number of seconds elapsed in last minute                                                                                            ' and the number of miliseconds    ShowTime = dHours & ":" & dMinutes & ":" & Format(dSeconds, "00.000")End Function 

size=3>

devx-admin

Share the Post: