|
~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.
~ Rechercher ~
~ Annuaire VB ~
~ Partenaires ~
|
Fonction GetSystemTime
Declare Sub GetSystemTime Lib "kernel32" ( _
lpSystemTime As SYSTEMTIME)
Versions :
. Windows 95/98 : Oui
. Windows NT : A partir de 3.1
. Windows 2000/XP : OuiDescription :
Cette fonction retourne l'heure système (heure GMT, différente de l'heure locale, voir GetLocalTime).
lpSystemTime est une structure de type SYSTEMTIME (définit ci-dessous).
La procédure remplit la struture passée en paramêtre avec la date et l'heure ainsi obtenue.
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
Exemple d'utilisation :
Public Function HeureSysteme() As String
' Retourne l'heure système sous forme de chaîne
' (précision à la milliseconde)
Dim sysTime As SYSTEMTIME
Call GetSystemTime(sysTime)
HeureSysteme = sysTime.wDayOfWeek & ", " & _
sysTime.wDay & "/" & _
sysTime.wMonth & "/" & _
sysTime.wYear & " " & _
sysTime.wHour & ":" & _
sysTime.wMinute & ":" & _
sysTime.wSecond & "'" & _
sysTime.wMilliseconds
End Function
Retour à la liste des API |
