~ 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 GetLocalTime
Declare Sub GetLocalTime 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 locale du PC.
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 HeureLocale() As String
' Retourne l'heure locale sous forme de chaîne
' (précision à la milliseconde)
Dim sysTime As SYSTEMTIME
Call GetLocalTime(sysTime)
HeureLocale = sysTime.wDayOfWeek & ", " & _
sysTime.wDay & "/" & _
sysTime.wMonth & "/" & _
sysTime.wYear & " " & _
sysTime.wHour & ":" & _
sysTime.wMinute & ":" & _
sysTime.wSecond & "'" & _
sysTime.wMilliseconds
End Function
Retour à la liste des API |