Heure GMT

Le
John-Pet
Salut à tous

voilà mon problème
comment faire pour récuperer l'heure GMT sous vba sachant que l'ordi
peu etre en france (+2 ) ou dans d'autres pays avec des decalages
differents

merci

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #2989001
Bonjour.
Je n'ai qu'une partie de a réponse.
L'information est dans le registre à l'emplacement :
HKLM/System/CurrentControlSet/Control/TimeZoneInformation
Reste à la récupérer avec VBA.
Cordialement.
Daniel
"John-Pet"
Salut à tous

voilà mon problème
comment faire pour récuperer l'heure GMT sous vba sachant que l'ordi peu
etre en france (+2 ) ou dans d'autres pays avec des decalages differents

merci

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net



Modeste
Le #2988921
Bonsour® John-Pet
pour peu que ton horloge Windows soit correctement réglée !!!
;o)))
exécuter la macro John_Pet

tous ceci dans un module standard :

Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As
SYSTEMTIME)
'KPD-Team 1998
'URL: http://www.allapi.net/
'
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
Function GMT_Time()
Application.Volatile
Dim SysTime As SYSTEMTIME
GetSystemTime SysTime
'Me.Print "Date System :" & SysTime.wDay & "/" & SysTime.wMonth & "/" &
SysTime.wYear
'Me.Print "Heure System :" & & ":" & & ":" &
GMT_Time = TimeSerial(SysTime.wHour, SysTime.wMinute, SysTime.wSecond)
End Function

Function Local_Time()
Dim MyTime As SYSTEMTIME
GetLocalTime MyTime
'Me.Print "Date Locale :" & MyTime.wDay & "/" & MyTime.wMonth & "/" &
MyTime.wYear
'Me.Print "Heure Locale :" & MyTime.wHour & ":" & MyTime.wMinute & ":" &
MyTime.wSecond
Local_Time = TimeSerial(MyTime.wHour, MyTime.wMinute, MyTime.wSecond)
End Function

Sub John_pet()
rep = MsgBox("heure locale : " & Chr(9) & Local_Time _
& Chr(10) & "heure GMT : " & Chr(9) & GMT_Time, vbInformation, "Selon
réglages Windows")
End Sub

;o))) voir également ceci :
http://www.excelabo.net/moteurs/compteclic.php?nom=gd-worldtime

--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042
John-Pet
Le #2988871
Daniel avait énoncé :
Bonjour.
Je n'ai qu'une partie de a réponse.
merci, mais je ne peux recuperer dans le regitre des informations du

genre " Paris Madrid ", mais pas un chiffre

JP



L'information est dans le registre à l'emplacement :
HKLM/System/CurrentControlSet/Control/TimeZoneInformation
Reste à la récupérer avec VBA.
Cordialement.
Daniel
"John-Pet"
Salut à tous

voilà mon problème
comment faire pour récuperer l'heure GMT sous vba sachant que l'ordi peu
etre en france (+2 ) ou dans d'autres pays avec des decalages differents

merci

-- Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net




--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net


John-Pet
Le #2988861
Merci Modeste
cela fonctionne bien, a moi maintenant de traiter l'information comme
je le souhaite

JP

Modeste a utilisé son clavier pour écrire :
Bonsour® John-Pet
pour peu que ton horloge Windows soit correctement réglée !!!
;o)))
exécuter la macro John_Pet

tous ceci dans un module standard :

Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
'KPD-Team 1998
'URL: http://www.allapi.net/
'
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
Function GMT_Time()
Application.Volatile
Dim SysTime As SYSTEMTIME
GetSystemTime SysTime
'Me.Print "Date System :" & SysTime.wDay & "/" & SysTime.wMonth & "/" &
SysTime.wYear
'Me.Print "Heure System :" & & ":" & & ":" &
GMT_Time = TimeSerial(SysTime.wHour, SysTime.wMinute, SysTime.wSecond)
End Function

Function Local_Time()
Dim MyTime As SYSTEMTIME
GetLocalTime MyTime
'Me.Print "Date Locale :" & MyTime.wDay & "/" & MyTime.wMonth & "/" &
MyTime.wYear
'Me.Print "Heure Locale :" & MyTime.wHour & ":" & MyTime.wMinute & ":" &
MyTime.wSecond
Local_Time = TimeSerial(MyTime.wHour, MyTime.wMinute, MyTime.wSecond)
End Function

Sub John_pet()
rep = MsgBox("heure locale : " & Chr(9) & Local_Time _
& Chr(10) & "heure GMT : " & Chr(9) & GMT_Time, vbInformation, "Selon
réglages Windows")
End Sub

;o))) voir également ceci :
http://www.excelabo.net/moteurs/compteclic.php?nom=gd-worldtime

--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr


--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net

Publicité
Poster une réponse
Anonyme