Precision System Time

Category:

System/API

Type:

Snippets

Difficulty:

Beginning

Author:

Anonymous

Version Compatibility: Visual Basic 6

More information:

Current system time that includes milliseconds. Function allows you to specify precision

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Private Function GetPreciseTime(Optional IncludeColon As Boolean = True, Optional Precision As Integer = 5) As String

Dim TimerValue As Single
    Dim TimeValue As Date
    
    Sleep (4)
    
    TimerValue = Timer
    TimeValue = Now
    
    If IncludeColon Then Sep = ":" Else Sep = ""
    
    If Precision > 9 Then Precision = 9
    
    If Precision <= 0 Then
        GetPreciseTime = Format(Fix(TimerValue / 3600#), "00") & Sep & Format(Fix(60 * ((TimerValue / 3600#) - Hour(TimeValue))), "00") & Sep & Format(Fix(60 * ((60 * ((TimerValue / 3600#) - Hour(TimeValue))) - Minute(TimeValue))), "00")
    Else
        GetPreciseTime = Format(Fix(TimerValue / 3600#), "00") & Sep & Format(Fix(60 * ((TimerValue / 3600#) - Hour(TimeValue))), "00") & Sep & Format(Fix(60 * ((60 * ((TimerValue / 3600#) - Hour(TimeValue))) - Minute(TimeValue))), "00") & _
                         Format((60 * ((60 * ((TimerValue / 3600#) - Hour(TimeValue))) - Minute(TimeValue))) - Second(TimeValue), "." & String(Precision, "0"))
    End If

End Function