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 

See also  Who are the Modern GPU Cloud Providers?

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist