Bonjour,
'Déclaration API dans le haut du module standard :
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
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
GMT_Time = TimeSerial(sysTime.wHour, sysTime.wMinute, sysTime.wSecond)
End Function
Function Local_Time()
Dim MyTime As SYSTEMTIME
GetLocalTime MyTime
Local_Time = TimeSerial(MyTime.wHour, MyTime.wMinute, MyTime.wSecond)
End Function
Function HeureGMT(Rg As String)
Dim c As Date
On Error Resume Next
If IsDate(CDate(Rg)) Then
c = TimeValue(Hour(Rg) & ":" & Minute(Rg) & ":" & Second(Rg))
If c * 1 = 0 Or Err <> 0 Then MichTime = "": Exit Function
End If
HeureGMT = GMT_Time - Local_Time + c
End Function
'-------------------------------------
'---------------------
Sub Exemple()
MsgBox HeureGMT("16:39:45")
End Sub
'---------------------
Bonjour,
'Déclaration API dans le haut du module standard :
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
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
GMT_Time = TimeSerial(sysTime.wHour, sysTime.wMinute, sysTime.wSecond)
End Function
Function Local_Time()
Dim MyTime As SYSTEMTIME
GetLocalTime MyTime
Local_Time = TimeSerial(MyTime.wHour, MyTime.wMinute, MyTime.wSecond)
End Function
Function HeureGMT(Rg As String)
Dim c As Date
On Error Resume Next
If IsDate(CDate(Rg)) Then
c = TimeValue(Hour(Rg) & ":" & Minute(Rg) & ":" & Second(Rg))
If c * 1 = 0 Or Err <> 0 Then MichTime = "": Exit Function
End If
HeureGMT = GMT_Time - Local_Time + c
End Function
'-------------------------------------
'---------------------
Sub Exemple()
MsgBox HeureGMT("16:39:45")
End Sub
'---------------------
Bonjour,
'Déclaration API dans le haut du module standard :
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
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
GMT_Time = TimeSerial(sysTime.wHour, sysTime.wMinute, sysTime.wSecond)
End Function
Function Local_Time()
Dim MyTime As SYSTEMTIME
GetLocalTime MyTime
Local_Time = TimeSerial(MyTime.wHour, MyTime.wMinute, MyTime.wSecond)
End Function
Function HeureGMT(Rg As String)
Dim c As Date
On Error Resume Next
If IsDate(CDate(Rg)) Then
c = TimeValue(Hour(Rg) & ":" & Minute(Rg) & ":" & Second(Rg))
If c * 1 = 0 Or Err <> 0 Then MichTime = "": Exit Function
End If
HeureGMT = GMT_Time - Local_Time + c
End Function
'-------------------------------------
'---------------------
Sub Exemple()
MsgBox HeureGMT("16:39:45")
End Sub
'---------------------
Bonjour Denis
Sauf erreur et si j'ai bien compris, ce principe est basé sur l'heure système du pc et nécessite que Windows
soit a l'heure et que le fuseau horaire soit correct.
Or mon soucis est de pouvoir vérifié cela.
W32time de Windows qui doit synchroniser le service de temps est souvent en rade pour l'utilisateur de ce
classeur.
PS: MichTime = "": un reste de fonctionnement perso ????
--
Salutations
JJ
"MichD" a écrit dans le message de news: ld6929$5ll$Bonjour,
'Déclaration API dans le haut du module standard :
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
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
GMT_Time = TimeSerial(sysTime.wHour, sysTime.wMinute, sysTime.wSecond)
End Function
Function Local_Time()
Dim MyTime As SYSTEMTIME
GetLocalTime MyTime
Local_Time = TimeSerial(MyTime.wHour, MyTime.wMinute, MyTime.wSecond)
End Function
Function HeureGMT(Rg As String)
Dim c As Date
On Error Resume Next
If IsDate(CDate(Rg)) Then
c = TimeValue(Hour(Rg) & ":" & Minute(Rg) & ":" & Second(Rg))
If c * 1 = 0 Or Err <> 0 Then MichTime = "": Exit Function
End If
HeureGMT = GMT_Time - Local_Time + c
End Function
'-------------------------------------
'---------------------
Sub Exemple()
MsgBox HeureGMT("16:39:45")
End Sub
'---------------------
Bonjour Denis
Sauf erreur et si j'ai bien compris, ce principe est basé sur l'heure système du pc et nécessite que Windows
soit a l'heure et que le fuseau horaire soit correct.
Or mon soucis est de pouvoir vérifié cela.
W32time de Windows qui doit synchroniser le service de temps est souvent en rade pour l'utilisateur de ce
classeur.
PS: MichTime = "": un reste de fonctionnement perso ????
--
Salutations
JJ
"MichD" <michdenis@hotmail.com> a écrit dans le message de news: ld6929$5ll$1@speranza.aioe.org...
Bonjour,
'Déclaration API dans le haut du module standard :
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
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
GMT_Time = TimeSerial(sysTime.wHour, sysTime.wMinute, sysTime.wSecond)
End Function
Function Local_Time()
Dim MyTime As SYSTEMTIME
GetLocalTime MyTime
Local_Time = TimeSerial(MyTime.wHour, MyTime.wMinute, MyTime.wSecond)
End Function
Function HeureGMT(Rg As String)
Dim c As Date
On Error Resume Next
If IsDate(CDate(Rg)) Then
c = TimeValue(Hour(Rg) & ":" & Minute(Rg) & ":" & Second(Rg))
If c * 1 = 0 Or Err <> 0 Then MichTime = "": Exit Function
End If
HeureGMT = GMT_Time - Local_Time + c
End Function
'-------------------------------------
'---------------------
Sub Exemple()
MsgBox HeureGMT("16:39:45")
End Sub
'---------------------
Bonjour Denis
Sauf erreur et si j'ai bien compris, ce principe est basé sur l'heure système du pc et nécessite que Windows
soit a l'heure et que le fuseau horaire soit correct.
Or mon soucis est de pouvoir vérifié cela.
W32time de Windows qui doit synchroniser le service de temps est souvent en rade pour l'utilisateur de ce
classeur.
PS: MichTime = "": un reste de fonctionnement perso ????
--
Salutations
JJ
"MichD" a écrit dans le message de news: ld6929$5ll$Bonjour,
'Déclaration API dans le haut du module standard :
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
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
GMT_Time = TimeSerial(sysTime.wHour, sysTime.wMinute, sysTime.wSecond)
End Function
Function Local_Time()
Dim MyTime As SYSTEMTIME
GetLocalTime MyTime
Local_Time = TimeSerial(MyTime.wHour, MyTime.wMinute, MyTime.wSecond)
End Function
Function HeureGMT(Rg As String)
Dim c As Date
On Error Resume Next
If IsDate(CDate(Rg)) Then
c = TimeValue(Hour(Rg) & ":" & Minute(Rg) & ":" & Second(Rg))
If c * 1 = 0 Or Err <> 0 Then MichTime = "": Exit Function
End If
HeureGMT = GMT_Time - Local_Time + c
End Function
'-------------------------------------
'---------------------
Sub Exemple()
MsgBox HeureGMT("16:39:45")
End Sub
'---------------------
Ta langue maternelle est le français?
Ta question était : "un soucis de comparaison de la date système et la date GMT"
Ta langue maternelle est le français?
Ta question était : "un soucis de comparaison de la date système et la date GMT"
Ta langue maternelle est le français?
Ta question était : "un soucis de comparaison de la date système et la date GMT"
Bonjour,
'Déclaration API dans le haut du module standard :
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As
SYSTEMTIME)
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As
SYSTEMTIME)
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
GMT_Time = TimeSerial(sysTime.wHour, sysTime.wMinute, sysTime.wSecond)
End Function
Function Local_Time()
Dim MyTime As SYSTEMTIME
GetLocalTime MyTime
Local_Time = TimeSerial(MyTime.wHour, MyTime.wMinute, MyTime.wSecond)
End Function
Function HeureGMT(Rg As String)
Dim c As Date
On Error Resume Next
If IsDate(CDate(Rg)) Then
c = TimeValue(Hour(Rg) & ":" & Minute(Rg) & ":" & Second(Rg))
If c * 1 = 0 Or Err <> 0 Then MichTime = "": Exit Function
End If
HeureGMT = GMT_Time - Local_Time + c
End Function
'-------------------------------------
'---------------------
Sub Exemple()
MsgBox HeureGMT("16:39:45")
End Sub
'---------------------
Bonjour,
'Déclaration API dans le haut du module standard :
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As
SYSTEMTIME)
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As
SYSTEMTIME)
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
GMT_Time = TimeSerial(sysTime.wHour, sysTime.wMinute, sysTime.wSecond)
End Function
Function Local_Time()
Dim MyTime As SYSTEMTIME
GetLocalTime MyTime
Local_Time = TimeSerial(MyTime.wHour, MyTime.wMinute, MyTime.wSecond)
End Function
Function HeureGMT(Rg As String)
Dim c As Date
On Error Resume Next
If IsDate(CDate(Rg)) Then
c = TimeValue(Hour(Rg) & ":" & Minute(Rg) & ":" & Second(Rg))
If c * 1 = 0 Or Err <> 0 Then MichTime = "": Exit Function
End If
HeureGMT = GMT_Time - Local_Time + c
End Function
'-------------------------------------
'---------------------
Sub Exemple()
MsgBox HeureGMT("16:39:45")
End Sub
'---------------------
Bonjour,
'Déclaration API dans le haut du module standard :
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As
SYSTEMTIME)
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As
SYSTEMTIME)
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
GMT_Time = TimeSerial(sysTime.wHour, sysTime.wMinute, sysTime.wSecond)
End Function
Function Local_Time()
Dim MyTime As SYSTEMTIME
GetLocalTime MyTime
Local_Time = TimeSerial(MyTime.wHour, MyTime.wMinute, MyTime.wSecond)
End Function
Function HeureGMT(Rg As String)
Dim c As Date
On Error Resume Next
If IsDate(CDate(Rg)) Then
c = TimeValue(Hour(Rg) & ":" & Minute(Rg) & ":" & Second(Rg))
If c * 1 = 0 Or Err <> 0 Then MichTime = "": Exit Function
End If
HeureGMT = GMT_Time - Local_Time + c
End Function
'-------------------------------------
'---------------------
Sub Exemple()
MsgBox HeureGMT("16:39:45")
End Sub
'---------------------
Pour la synchronisation du temps, je ne connais qu'*un* seul service :
ntp.sophia.cnrs.fr
Bonne fin de dimanche
Michel
"Jacky" a écrit dans le message de groupe de discussion : 52f749b3$0$2925$
Bonjour Denis
Sauf erreur et si j'ai bien compris, ce principe est basé sur l'heure système du pc et nécessite que Windows
soit a l'heure et que le fuseau horaire soit correct.
Or mon soucis est de pouvoir vérifié cela.
W32time de Windows qui doit synchroniser le service de temps est souvent en rade pour l'utilisateur de ce
classeur.
PS: MichTime = "": un reste de fonctionnement perso ????
--
Salutations
JJ
"MichD" a écrit dans le message de news: ld6929$5ll$Bonjour,
'Déclaration API dans le haut du module standard :
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
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
GMT_Time = TimeSerial(sysTime.wHour, sysTime.wMinute, sysTime.wSecond)
End Function
Function Local_Time()
Dim MyTime As SYSTEMTIME
GetLocalTime MyTime
Local_Time = TimeSerial(MyTime.wHour, MyTime.wMinute, MyTime.wSecond)
End Function
Function HeureGMT(Rg As String)
Dim c As Date
On Error Resume Next
If IsDate(CDate(Rg)) Then
c = TimeValue(Hour(Rg) & ":" & Minute(Rg) & ":" & Second(Rg))
If c * 1 = 0 Or Err <> 0 Then MichTime = "": Exit Function
End If
HeureGMT = GMT_Time - Local_Time + c
End Function
'-------------------------------------
'---------------------
Sub Exemple()
MsgBox HeureGMT("16:39:45")
End Sub
'---------------------
Pour la synchronisation du temps, je ne connais qu'*un* seul service :
ntp.sophia.cnrs.fr
Bonne fin de dimanche
Michel
"Jacky" a écrit dans le message de groupe de discussion : 52f749b3$0$2925$426a74cc@news.free.fr...
Bonjour Denis
Sauf erreur et si j'ai bien compris, ce principe est basé sur l'heure système du pc et nécessite que Windows
soit a l'heure et que le fuseau horaire soit correct.
Or mon soucis est de pouvoir vérifié cela.
W32time de Windows qui doit synchroniser le service de temps est souvent en rade pour l'utilisateur de ce
classeur.
PS: MichTime = "": un reste de fonctionnement perso ????
--
Salutations
JJ
"MichD" <michdenis@hotmail.com> a écrit dans le message de news: ld6929$5ll$1@speranza.aioe.org...
Bonjour,
'Déclaration API dans le haut du module standard :
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
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
GMT_Time = TimeSerial(sysTime.wHour, sysTime.wMinute, sysTime.wSecond)
End Function
Function Local_Time()
Dim MyTime As SYSTEMTIME
GetLocalTime MyTime
Local_Time = TimeSerial(MyTime.wHour, MyTime.wMinute, MyTime.wSecond)
End Function
Function HeureGMT(Rg As String)
Dim c As Date
On Error Resume Next
If IsDate(CDate(Rg)) Then
c = TimeValue(Hour(Rg) & ":" & Minute(Rg) & ":" & Second(Rg))
If c * 1 = 0 Or Err <> 0 Then MichTime = "": Exit Function
End If
HeureGMT = GMT_Time - Local_Time + c
End Function
'-------------------------------------
'---------------------
Sub Exemple()
MsgBox HeureGMT("16:39:45")
End Sub
'---------------------
Pour la synchronisation du temps, je ne connais qu'*un* seul service :
ntp.sophia.cnrs.fr
Bonne fin de dimanche
Michel
"Jacky" a écrit dans le message de groupe de discussion : 52f749b3$0$2925$
Bonjour Denis
Sauf erreur et si j'ai bien compris, ce principe est basé sur l'heure système du pc et nécessite que Windows
soit a l'heure et que le fuseau horaire soit correct.
Or mon soucis est de pouvoir vérifié cela.
W32time de Windows qui doit synchroniser le service de temps est souvent en rade pour l'utilisateur de ce
classeur.
PS: MichTime = "": un reste de fonctionnement perso ????
--
Salutations
JJ
"MichD" a écrit dans le message de news: ld6929$5ll$Bonjour,
'Déclaration API dans le haut du module standard :
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
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
GMT_Time = TimeSerial(sysTime.wHour, sysTime.wMinute, sysTime.wSecond)
End Function
Function Local_Time()
Dim MyTime As SYSTEMTIME
GetLocalTime MyTime
Local_Time = TimeSerial(MyTime.wHour, MyTime.wMinute, MyTime.wSecond)
End Function
Function HeureGMT(Rg As String)
Dim c As Date
On Error Resume Next
If IsDate(CDate(Rg)) Then
c = TimeValue(Hour(Rg) & ":" & Minute(Rg) & ":" & Second(Rg))
If c * 1 = 0 Or Err <> 0 Then MichTime = "": Exit Function
End If
HeureGMT = GMT_Time - Local_Time + c
End Function
'-------------------------------------
'---------------------
Sub Exemple()
MsgBox HeureGMT("16:39:45")
End Sub
'---------------------
Bonjour,
'Déclaration API dans le haut du module standard :
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
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
GMT_Time = TimeSerial(sysTime.wHour, sysTime.wMinute, sysTime.wSecond)
End Function
Function Local_Time()
Dim MyTime As SYSTEMTIME
GetLocalTime MyTime
Local_Time = TimeSerial(MyTime.wHour, MyTime.wMinute, MyTime.wSecond)
End Function
Function HeureGMT(Rg As String)
Dim c As Date
On Error Resume Next
If IsDate(CDate(Rg)) Then
c = TimeValue(Hour(Rg) & ":" & Minute(Rg) & ":" & Second(Rg))
If c * 1 = 0 Or Err <> 0 Then MichTime = "": Exit Function
End If
HeureGMT = GMT_Time - Local_Time + c
End Function
'-------------------------------------
'---------------------
Sub Exemple()
MsgBox HeureGMT("16:39:45")
End Sub
'---------------------
Bonjour,
'Déclaration API dans le haut du module standard :
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
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
GMT_Time = TimeSerial(sysTime.wHour, sysTime.wMinute, sysTime.wSecond)
End Function
Function Local_Time()
Dim MyTime As SYSTEMTIME
GetLocalTime MyTime
Local_Time = TimeSerial(MyTime.wHour, MyTime.wMinute, MyTime.wSecond)
End Function
Function HeureGMT(Rg As String)
Dim c As Date
On Error Resume Next
If IsDate(CDate(Rg)) Then
c = TimeValue(Hour(Rg) & ":" & Minute(Rg) & ":" & Second(Rg))
If c * 1 = 0 Or Err <> 0 Then MichTime = "": Exit Function
End If
HeureGMT = GMT_Time - Local_Time + c
End Function
'-------------------------------------
'---------------------
Sub Exemple()
MsgBox HeureGMT("16:39:45")
End Sub
'---------------------
Bonjour,
'Déclaration API dans le haut du module standard :
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
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
GMT_Time = TimeSerial(sysTime.wHour, sysTime.wMinute, sysTime.wSecond)
End Function
Function Local_Time()
Dim MyTime As SYSTEMTIME
GetLocalTime MyTime
Local_Time = TimeSerial(MyTime.wHour, MyTime.wMinute, MyTime.wSecond)
End Function
Function HeureGMT(Rg As String)
Dim c As Date
On Error Resume Next
If IsDate(CDate(Rg)) Then
c = TimeValue(Hour(Rg) & ":" & Minute(Rg) & ":" & Second(Rg))
If c * 1 = 0 Or Err <> 0 Then MichTime = "": Exit Function
End If
HeureGMT = GMT_Time - Local_Time + c
End Function
'-------------------------------------
'---------------------
Sub Exemple()
MsgBox HeureGMT("16:39:45")
End Sub
'---------------------