Obtenir l'heure précise (HH NN SS + dixièmes, centièmes, millièmes de seconde)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 887 fois - Téléchargée 7 fois


Contenu du snippet

'   à placer dans un  module
Private Type SYSTEMTIME
    wYear           As Integer
    wMonth          As Integer
    wDayOfWeek      As Integer
    wDay            As Integer
    wHour           As Integer
    wMinute         As Integer
    wSecond         As Integer
    wMilliseconds   As Integer
End Type
Public Enum ePrecisionConstants
    [Precision Second]
    [Precision TenthSecond]
    [Precision HundredthSecond]
    [Precision ThousandthSecond]
End Enum
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Public Function GetPreciseTime(ByVal ePrecision As ePrecisionConstants) As  String
    Dim SysTime As SYSTEMTIME
    Call GetSystemTime(SysTime)
    With SysTime
        GetPreciseTime = Format$(.wHour & ":" & .wMinute & ":" & .wSecond, "HH:NN:SS")
        Select Case ePrecision
            Case [Precision TenthSecond]:  GetPreciseTime = GetPreciseTime & ":" & .wMilliseconds \ 100
            Case [Precision HundredthSecond]: GetPreciseTime = GetPreciseTime &  ":" & .wMilliseconds \ 10
            Case [Precision ThousandthSecond]: GetPreciseTime = GetPreciseTime  & ":" & .wMilliseconds
        End Select
    End With
End Function


Compatibilité : VB6, VBA

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.