J’ai un probleme, je voudrai utilisee la commande :
Format (Date+Time, "xxx")
De sorte a retourner une variable dans se style la :
"Sat, 02 Aug 2003 16:46:59 GMT"
J’ai pour cela trois problemes :
*Deja, il le retourne en francais et sans le decalage horaire pour le mettre en
GMT.
Il me faudrait pouvoir connaitre, avec une API ou autre, le decalage entre le
fuseau courant et l’heure GMT (pour soustraire/augmentez a Date+Time le nombre
d’heure). Et si possible recuperer les valeurs en anglais (mais la, si c’est pas
possible directement je me debrouillerai).
*Puis, pour la chaine xxx, j’ai mis ceci (reconstituer depuis l’aide, la page
qui decrit les formats personnalises) :
"jjjj, jj mmm yyyy hh:mm:ss"
Mais sa me retourne
jjjj, jj aout 2003 20:16:28
Il ne semble pas vouloir des j.
Merci de vos conseils, @+
*Et je voudrai egalement pouvoir faire l’inverse (du resultat revenir a
une variable de type Date)
--
Ce message a ete poste via la plateforme Web club-Internet.fr
This message has been posted by the Web platform club-Internet.fr
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
André Joubert
Voici un bout de code à placer dans une FORM. C'est peut-être un début de solution ======================= 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 Private Sub Form_Load() Dim SysTime As SYSTEMTIME Dim MyTime As SYSTEMTIME
Me.AutoRedraw = True ' Obtenir l'heure (UTC) du système GetSystemTime SysTime 'Imprimer sur la feuille Me.Print "The System Date is:" & SysTime.wMonth & "-" & SysTime.wDay & "-" & SysTime.wYear Me.Print "The System Time is:" & SysTime.wHour & ":" & SysTime.wMinute & ":" & SysTime.wSecond ' Obtenir l'heure locale GetLocalTime MyTime 'Imprimer sur la feuille Me.Print "The Local Date is:" & MyTime.wMonth & "-" & MyTime.wDay & "-" & MyTime.wYear Me.Print "The Local Time is:" & MyTime.wHour & ":" & MyTime.wMinute & ":" & MyTime.wSecond End Sub
======================= André
"Mickey" wrote in message news:
Bonjour,
J'ai un probleme, je voudrai utilisee la commande : Format (Date+Time, "xxx") De sorte a retourner une variable dans se style la : "Sat, 02 Aug 2003 16:46:59 GMT" J'ai pour cela trois problemes : *Deja, il le retourne en francais et sans le decalage horaire pour le
mettre en
GMT. Il me faudrait pouvoir connaitre, avec une API ou autre, le decalage entre
le
fuseau courant et l'heure GMT (pour soustraire/augmentez a Date+Time le
nombre
d'heure). Et si possible recuperer les valeurs en anglais (mais la, si
c'est pas
possible directement je me debrouillerai). *Puis, pour la chaine xxx, j'ai mis ceci (reconstituer depuis l'aide, la
page
qui decrit les formats personnalises) : "jjjj, jj mmm yyyy hh:mm:ss" Mais sa me retourne jjjj, jj aout 2003 20:16:28 Il ne semble pas vouloir des j.
Merci de vos conseils, @+ *Et je voudrai egalement pouvoir faire l'inverse (du resultat
revenir a
une variable de type Date) -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr
http://forums.club-internet.fr/
Voici un bout de code à placer dans une FORM.
C'est peut-être un début de solution
======================= 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
Private Sub Form_Load()
Dim SysTime As SYSTEMTIME
Dim MyTime As SYSTEMTIME
Me.AutoRedraw = True
' Obtenir l'heure (UTC) du système
GetSystemTime SysTime
'Imprimer sur la feuille
Me.Print "The System Date is:" & SysTime.wMonth & "-" & SysTime.wDay &
"-" & SysTime.wYear
Me.Print "The System Time is:" & SysTime.wHour & ":" & SysTime.wMinute &
":" & SysTime.wSecond
' Obtenir l'heure locale
GetLocalTime MyTime
'Imprimer sur la feuille
Me.Print "The Local Date is:" & MyTime.wMonth & "-" & MyTime.wDay & "-"
& MyTime.wYear
Me.Print "The Local Time is:" & MyTime.wHour & ":" & MyTime.wMinute &
":" & MyTime.wSecond
End Sub
======================= André
"Mickey" <p@sde.mail> wrote in message
news:200382-212150-127037@foorum.com...
Bonjour,
J'ai un probleme, je voudrai utilisee la commande :
Format (Date+Time, "xxx")
De sorte a retourner une variable dans se style la :
"Sat, 02 Aug 2003 16:46:59 GMT"
J'ai pour cela trois problemes :
*Deja, il le retourne en francais et sans le decalage horaire pour le
mettre en
GMT.
Il me faudrait pouvoir connaitre, avec une API ou autre, le decalage entre
le
fuseau courant et l'heure GMT (pour soustraire/augmentez a Date+Time le
nombre
d'heure). Et si possible recuperer les valeurs en anglais (mais la, si
c'est pas
possible directement je me debrouillerai).
*Puis, pour la chaine xxx, j'ai mis ceci (reconstituer depuis l'aide, la
page
qui decrit les formats personnalises) :
"jjjj, jj mmm yyyy hh:mm:ss"
Mais sa me retourne
jjjj, jj aout 2003 20:16:28
Il ne semble pas vouloir des j.
Merci de vos conseils, @+
*Et je voudrai egalement pouvoir faire l'inverse (du resultat
revenir a
une variable de type Date)
--
Ce message a ete poste via la plateforme Web club-Internet.fr
This message has been posted by the Web platform club-Internet.fr
Voici un bout de code à placer dans une FORM. C'est peut-être un début de solution ======================= 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 Private Sub Form_Load() Dim SysTime As SYSTEMTIME Dim MyTime As SYSTEMTIME
Me.AutoRedraw = True ' Obtenir l'heure (UTC) du système GetSystemTime SysTime 'Imprimer sur la feuille Me.Print "The System Date is:" & SysTime.wMonth & "-" & SysTime.wDay & "-" & SysTime.wYear Me.Print "The System Time is:" & SysTime.wHour & ":" & SysTime.wMinute & ":" & SysTime.wSecond ' Obtenir l'heure locale GetLocalTime MyTime 'Imprimer sur la feuille Me.Print "The Local Date is:" & MyTime.wMonth & "-" & MyTime.wDay & "-" & MyTime.wYear Me.Print "The Local Time is:" & MyTime.wHour & ":" & MyTime.wMinute & ":" & MyTime.wSecond End Sub
======================= André
"Mickey" wrote in message news:
Bonjour,
J'ai un probleme, je voudrai utilisee la commande : Format (Date+Time, "xxx") De sorte a retourner une variable dans se style la : "Sat, 02 Aug 2003 16:46:59 GMT" J'ai pour cela trois problemes : *Deja, il le retourne en francais et sans le decalage horaire pour le
mettre en
GMT. Il me faudrait pouvoir connaitre, avec une API ou autre, le decalage entre
le
fuseau courant et l'heure GMT (pour soustraire/augmentez a Date+Time le
nombre
d'heure). Et si possible recuperer les valeurs en anglais (mais la, si
c'est pas
possible directement je me debrouillerai). *Puis, pour la chaine xxx, j'ai mis ceci (reconstituer depuis l'aide, la
page
qui decrit les formats personnalises) : "jjjj, jj mmm yyyy hh:mm:ss" Mais sa me retourne jjjj, jj aout 2003 20:16:28 Il ne semble pas vouloir des j.
Merci de vos conseils, @+ *Et je voudrai egalement pouvoir faire l'inverse (du resultat
revenir a
une variable de type Date) -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr
