Bonjour Gilles,
Si tu veux pouvoir transformer la donnée "temps" contenue
dans une cellule à l'heure GMT,
Pour obtenir le résultat dans un message en vba
'---------------------
Sub test()
MsgBox MichTime(Range("d1"))
End Sub
'---------------------
Tu peux aussi utiliser directement la fonction dans une cellule
de ta feuille de calcul =MichTime(A1)
'Déclaration API dans le haut du module
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 MichTime(Rg As Range)
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
MichTime = GMT_Time - Local_Time + c
End Function
'-------------------------------------
Salutations!
"Gilles Le Bret" a écrit dans le message de news:
u1wI$
bonjour à tous et à toutes,
je cherche en VBA à écrire une routine pour récupérer à partir d'une WS
l'heure locale et l'heure UTC du domaine sur lequel est connecté cette
workstation ?
une idée API ou quoi d'autre ?
merci d'avance
Gilles Le Bret
Bonjour Gilles,
Si tu veux pouvoir transformer la donnée "temps" contenue
dans une cellule à l'heure GMT,
Pour obtenir le résultat dans un message en vba
'---------------------
Sub test()
MsgBox MichTime(Range("d1"))
End Sub
'---------------------
Tu peux aussi utiliser directement la fonction dans une cellule
de ta feuille de calcul =MichTime(A1)
'Déclaration API dans le haut du module
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 MichTime(Rg As Range)
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
MichTime = GMT_Time - Local_Time + c
End Function
'-------------------------------------
Salutations!
"Gilles Le Bret" <lebret@a2.socetem.fr> a écrit dans le message de news:
u1wI$iBIGHA.1312@TK2MSFTNGP09.phx.gbl...
bonjour à tous et à toutes,
je cherche en VBA à écrire une routine pour récupérer à partir d'une WS
l'heure locale et l'heure UTC du domaine sur lequel est connecté cette
workstation ?
une idée API ou quoi d'autre ?
merci d'avance
Gilles Le Bret
Bonjour Gilles,
Si tu veux pouvoir transformer la donnée "temps" contenue
dans une cellule à l'heure GMT,
Pour obtenir le résultat dans un message en vba
'---------------------
Sub test()
MsgBox MichTime(Range("d1"))
End Sub
'---------------------
Tu peux aussi utiliser directement la fonction dans une cellule
de ta feuille de calcul =MichTime(A1)
'Déclaration API dans le haut du module
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 MichTime(Rg As Range)
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
MichTime = GMT_Time - Local_Time + c
End Function
'-------------------------------------
Salutations!
"Gilles Le Bret" a écrit dans le message de news:
u1wI$
bonjour à tous et à toutes,
je cherche en VBA à écrire une routine pour récupérer à partir d'une WS
l'heure locale et l'heure UTC du domaine sur lequel est connecté cette
workstation ?
une idée API ou quoi d'autre ?
merci d'avance
Gilles Le Bret
Bonjour Gilles,
Si tu veux pouvoir transformer la donnée "temps" contenue
dans une cellule à l'heure GMT,
Pour obtenir le résultat dans un message en vba
'---------------------
Sub test()
MsgBox MichTime(Range("d1"))
End Sub
'---------------------
Tu peux aussi utiliser directement la fonction dans une cellule
de ta feuille de calcul =MichTime(A1)
'Déclaration API dans le haut du module
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 MichTime(Rg As Range)
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
MichTime = GMT_Time - Local_Time + c
End Function
'-------------------------------------
Salutations!
"Gilles Le Bret" a écrit dans le message de news:
u1wI$
bonjour à tous et à toutes,
je cherche en VBA à écrire une routine pour récupérer à partir d'une WS
l'heure locale et l'heure UTC du domaine sur lequel est connecté cette
workstation ?
une idée API ou quoi d'autre ?
merci d'avance
Gilles Le Bret
Bonjour Gilles,
Si tu veux pouvoir transformer la donnée "temps" contenue
dans une cellule à l'heure GMT,
Pour obtenir le résultat dans un message en vba
'---------------------
Sub test()
MsgBox MichTime(Range("d1"))
End Sub
'---------------------
Tu peux aussi utiliser directement la fonction dans une cellule
de ta feuille de calcul =MichTime(A1)
'Déclaration API dans le haut du module
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 MichTime(Rg As Range)
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
MichTime = GMT_Time - Local_Time + c
End Function
'-------------------------------------
Salutations!
"Gilles Le Bret" <lebret@a2.socetem.fr> a écrit dans le message de news:
u1wI$iBIGHA.1312@TK2MSFTNGP09.phx.gbl...
bonjour à tous et à toutes,
je cherche en VBA à écrire une routine pour récupérer à partir d'une WS
l'heure locale et l'heure UTC du domaine sur lequel est connecté cette
workstation ?
une idée API ou quoi d'autre ?
merci d'avance
Gilles Le Bret
Bonjour Gilles,
Si tu veux pouvoir transformer la donnée "temps" contenue
dans une cellule à l'heure GMT,
Pour obtenir le résultat dans un message en vba
'---------------------
Sub test()
MsgBox MichTime(Range("d1"))
End Sub
'---------------------
Tu peux aussi utiliser directement la fonction dans une cellule
de ta feuille de calcul =MichTime(A1)
'Déclaration API dans le haut du module
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 MichTime(Rg As Range)
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
MichTime = GMT_Time - Local_Time + c
End Function
'-------------------------------------
Salutations!
"Gilles Le Bret" a écrit dans le message de news:
u1wI$
bonjour à tous et à toutes,
je cherche en VBA à écrire une routine pour récupérer à partir d'une WS
l'heure locale et l'heure UTC du domaine sur lequel est connecté cette
workstation ?
une idée API ou quoi d'autre ?
merci d'avance
Gilles Le Bret
Bonjour Gilles,
| récupérer les valeurs local time et gmt time du serveur de domaine...
Et si tu passais un appel à ton adminstrateur pour le lui demander ...;-)
IL doit bien y avoir un forum en réseautique de microsoft... tu as
peut être plus de chance d'obtenir ce que tu désires !
Salutations!
"michdenis" a écrit dans le message de news:Bonjour Gilles,
Si tu veux pouvoir transformer la donnée "temps" contenue
dans une cellule à l'heure GMT,
Pour obtenir le résultat dans un message en vba
'---------------------
Sub test()
MsgBox MichTime(Range("d1"))
End Sub
'---------------------
Tu peux aussi utiliser directement la fonction dans une cellule
de ta feuille de calcul =MichTime(A1)
'Déclaration API dans le haut du module
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 MichTime(Rg As Range)
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
MichTime = GMT_Time - Local_Time + c
End Function
'-------------------------------------
Salutations!
"Gilles Le Bret" a écrit dans le message de news:
u1wI$
bonjour à tous et à toutes,
je cherche en VBA à écrire une routine pour récupérer à partir d'une WS
l'heure locale et l'heure UTC du domaine sur lequel est connecté cette
workstation ?
une idée API ou quoi d'autre ?
merci d'avance
Gilles Le Bret
Bonjour Gilles,
| récupérer les valeurs local time et gmt time du serveur de domaine...
Et si tu passais un appel à ton adminstrateur pour le lui demander ...;-)
IL doit bien y avoir un forum en réseautique de microsoft... tu as
peut être plus de chance d'obtenir ce que tu désires !
Salutations!
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
e4zSxkDIGHA.3176@TK2MSFTNGP12.phx.gbl...
Bonjour Gilles,
Si tu veux pouvoir transformer la donnée "temps" contenue
dans une cellule à l'heure GMT,
Pour obtenir le résultat dans un message en vba
'---------------------
Sub test()
MsgBox MichTime(Range("d1"))
End Sub
'---------------------
Tu peux aussi utiliser directement la fonction dans une cellule
de ta feuille de calcul =MichTime(A1)
'Déclaration API dans le haut du module
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 MichTime(Rg As Range)
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
MichTime = GMT_Time - Local_Time + c
End Function
'-------------------------------------
Salutations!
"Gilles Le Bret" <lebret@a2.socetem.fr> a écrit dans le message de news:
u1wI$iBIGHA.1312@TK2MSFTNGP09.phx.gbl...
bonjour à tous et à toutes,
je cherche en VBA à écrire une routine pour récupérer à partir d'une WS
l'heure locale et l'heure UTC du domaine sur lequel est connecté cette
workstation ?
une idée API ou quoi d'autre ?
merci d'avance
Gilles Le Bret
Bonjour Gilles,
| récupérer les valeurs local time et gmt time du serveur de domaine...
Et si tu passais un appel à ton adminstrateur pour le lui demander ...;-)
IL doit bien y avoir un forum en réseautique de microsoft... tu as
peut être plus de chance d'obtenir ce que tu désires !
Salutations!
"michdenis" a écrit dans le message de news:Bonjour Gilles,
Si tu veux pouvoir transformer la donnée "temps" contenue
dans une cellule à l'heure GMT,
Pour obtenir le résultat dans un message en vba
'---------------------
Sub test()
MsgBox MichTime(Range("d1"))
End Sub
'---------------------
Tu peux aussi utiliser directement la fonction dans une cellule
de ta feuille de calcul =MichTime(A1)
'Déclaration API dans le haut du module
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 MichTime(Rg As Range)
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
MichTime = GMT_Time - Local_Time + c
End Function
'-------------------------------------
Salutations!
"Gilles Le Bret" a écrit dans le message de news:
u1wI$
bonjour à tous et à toutes,
je cherche en VBA à écrire une routine pour récupérer à partir d'une WS
l'heure locale et l'heure UTC du domaine sur lequel est connecté cette
workstation ?
une idée API ou quoi d'autre ?
merci d'avance
Gilles Le Bret
