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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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" <John-Pet@wanadoo.fr> a écrit dans le message de news:
mn.503c7d59119e7762.24667@wanadoo.fr...
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
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
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
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/
'KPDTeam@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
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
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
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" <John-Pet@wanadoo.fr> a écrit dans le message de news:
mn.503c7d59119e7762.24667@wanadoo.fr...
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
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
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
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/
'KPDTeam@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
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