HEURE PRÉCISE : MILLIÈME DE SECONDE

'À mettre par exemple dans un timer
'Ceci permet de récupérer des informations
'sur la date et l'heure courante
'années retourne l'année sur 4 chiffres
'mois retourne le mois sur 2 chiffres
'jours retourne le numéro du jour dans le mois sur 2 chiffres
'heures retourne l'heure sur 2 chiffres
'minutes retourne les minutes sur 2 chiffres
'secondes retourne les secondes sous la forme XX.YYY ou XX sont les secondes
'et ou YYY sont les millièmes de seconde

Set SystemSet = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")

For Each System In SystemSet
    DateTime1 = System.LocalDateTime
    années = Left$(DateTime1, 4)
    mois = Mid$(DateTime1, 5, 2)
    jours = Mid$(DateTime1, 7, 2)
    heures = Mid$(DateTime1, 9, 2)
    minutes = Mid$(DateTime1, 11, 2)
    secondes = Mid$(DateTime1, 13, 6)
Next