Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Heure GMT

4 réponses
Avatar
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

4 réponses

Avatar
Daniel
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" a écrit dans le message de news:

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



Avatar
Modeste
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" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">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
Avatar
John-Pet
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" a écrit dans le message de news:

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" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.mesnews.net




--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.mesnews.net


Avatar
John-Pet
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" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">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