Bonjour,
existe t'il une méthode pour savoir si pour une date donnée on est en
heure d'hiver ou en heure d'été ?
Merci d'avance
Cordialement
Michel
Bonjour,
existe t'il une méthode pour savoir si pour une date donnée on est en
heure d'hiver ou en heure d'été ?
Merci d'avance
Cordialement
Michel
Bonjour,
existe t'il une méthode pour savoir si pour une date donnée on est en
heure d'hiver ou en heure d'été ?
Merci d'avance
Cordialement
Michel
Bonjour,
existe t'il une méthode pour savoir si pour une date donnée on est en
heure d'hiver ou en heure d'été ?
Merci d'avance
Cordialement
Michel
Bonjour,
existe t'il une méthode pour savoir si pour une date donnée on est en
heure d'hiver ou en heure d'été ?
Merci d'avance
Cordialement
Michel
Bonjour,
existe t'il une méthode pour savoir si pour une date donnée on est en
heure d'hiver ou en heure d'été ?
Merci d'avance
Cordialement
Michel
existe t'il une méthode pour savoir si pour une date donnée on est en
heure d'hiver ou en heure d'été ?
existe t'il une méthode pour savoir si pour une date donnée on est en
heure d'hiver ou en heure d'été ?
existe t'il une méthode pour savoir si pour une date donnée on est en
heure d'hiver ou en heure d'été ?
Bonjour,
existe t'il une méthode pour savoir si pour une date donnée on est en
heure d'hiver ou en heure d'été ?
Merci d'avance
Cordialement
Michel
Bonjour,
existe t'il une méthode pour savoir si pour une date donnée on est en
heure d'hiver ou en heure d'été ?
Merci d'avance
Cordialement
Michel
Bonjour,
existe t'il une méthode pour savoir si pour une date donnée on est en
heure d'hiver ou en heure d'été ?
Merci d'avance
Cordialement
Michel
Il reste un litige entre le 2h et 3h du matin le dernier dimanche d'octobre
car ça peut être la fin de l'heure d'été ou le début de l'heure d'hiver.
Par contre en décryptant la macro de Paul?, ( Paul est Mickey ;o))), il
semblerait que
l'ordinateur pourrait me fournir directement l'heure TU actuelle,
Voir remarque concernant la mise à l'heure correcte de votre PC et prise en
on est obligé de passer par une macro pour l'obtenir ?
Il reste un litige entre le 2h et 3h du matin le dernier dimanche d'octobre
car ça peut être la fin de l'heure d'été ou le début de l'heure d'hiver.
Par contre en décryptant la macro de Paul?, ( Paul est Mickey ;o))), il
semblerait que
l'ordinateur pourrait me fournir directement l'heure TU actuelle,
Voir remarque concernant la mise à l'heure correcte de votre PC et prise en
on est obligé de passer par une macro pour l'obtenir ?
Il reste un litige entre le 2h et 3h du matin le dernier dimanche d'octobre
car ça peut être la fin de l'heure d'été ou le début de l'heure d'hiver.
Par contre en décryptant la macro de Paul?, ( Paul est Mickey ;o))), il
semblerait que
l'ordinateur pourrait me fournir directement l'heure TU actuelle,
Voir remarque concernant la mise à l'heure correcte de votre PC et prise en
on est obligé de passer par une macro pour l'obtenir ?
Bonsour® Sam avec ferveur ;o))) vous nous disiez :Il reste un litige entre le 2h et 3h du matin le dernier dimanche
d'octobre car ça peut être la fin de l'heure d'été ou le début de
l'heure d'hiver.
Union européenne
La norme ISO concernant la date permet un traitement informatisé de
l'heure et du changement d'heure estival. La chaîne de caractères
représentant
l'heure indique le fuseau horaire accompagné du changement d'heure
éventuel : par exemple, l'heure légale française est notée en hiver
CET (Central European time, heure d'Europe centrale) et en été CEST
(Central European summer time, heure d'été d'Europe centrale).
À compter de l'année 2002, les changements d'heure en été et en hiver
doivent se faire à des dates prédéfinies (directive 2000/84/CE du
Parlement européen et du Conseil, et document 52000PC0302) :
la période de l'heure d'été commence, à 1 heure du matin, temps
universel (coordonné), le dernier dimanche de mars ;
la période de l'heure d'été se termine, à 1 heure du matin, temps
universel (coordonné), le dernier dimanche d'octobre.
correction à la proposition précédente:
Function HeureEte(target As Date) As String
Application.Volatile
Dim deb As Date, fin As Date, EtoH As Date, HtoE As Date
deb = DateSerial(Year(target), 4, 1)
fin = DateSerial(Year(target), 11, 1)
EtoH = (1 / 24) + fin - Day(fin) + 1 - Weekday(fin - Day(fin) - 7)
HtoE = (1 / 24) - deb - Day(deb) + 1 - Weekday(deb - Day(deb) - 7)
HeureEte = "heure d'" & IIf((target > HtoE) And (target < EtoH),
"été", "hiver")
End FunctionPar contre en décryptant la macro de Paul?, ( Paul est Mickey ;o))),
il semblerait que
l'ordinateur pourrait me fournir directement l'heure TU actuelle,
Voir remarque concernant la mise à l'heure correcte de votre PC et
prise en compte du fuseau horaireon est obligé de passer par une macro pour l'obtenir ?
;o)))
Pire que ça !!!
il s'agit ici d'API Windows (librairy Kernel32)
une interface de code source fournie par Windows en vue de répondre à
des requêtes pour des services et communiquer avec un autre programme
Bonsour® Sam avec ferveur ;o))) vous nous disiez :
Il reste un litige entre le 2h et 3h du matin le dernier dimanche
d'octobre car ça peut être la fin de l'heure d'été ou le début de
l'heure d'hiver.
Union européenne
La norme ISO concernant la date permet un traitement informatisé de
l'heure et du changement d'heure estival. La chaîne de caractères
représentant
l'heure indique le fuseau horaire accompagné du changement d'heure
éventuel : par exemple, l'heure légale française est notée en hiver
CET (Central European time, heure d'Europe centrale) et en été CEST
(Central European summer time, heure d'été d'Europe centrale).
À compter de l'année 2002, les changements d'heure en été et en hiver
doivent se faire à des dates prédéfinies (directive 2000/84/CE du
Parlement européen et du Conseil, et document 52000PC0302) :
la période de l'heure d'été commence, à 1 heure du matin, temps
universel (coordonné), le dernier dimanche de mars ;
la période de l'heure d'été se termine, à 1 heure du matin, temps
universel (coordonné), le dernier dimanche d'octobre.
correction à la proposition précédente:
Function HeureEte(target As Date) As String
Application.Volatile
Dim deb As Date, fin As Date, EtoH As Date, HtoE As Date
deb = DateSerial(Year(target), 4, 1)
fin = DateSerial(Year(target), 11, 1)
EtoH = (1 / 24) + fin - Day(fin) + 1 - Weekday(fin - Day(fin) - 7)
HtoE = (1 / 24) - deb - Day(deb) + 1 - Weekday(deb - Day(deb) - 7)
HeureEte = "heure d'" & IIf((target > HtoE) And (target < EtoH),
"été", "hiver")
End Function
Par contre en décryptant la macro de Paul?, ( Paul est Mickey ;o))),
il semblerait que
l'ordinateur pourrait me fournir directement l'heure TU actuelle,
Voir remarque concernant la mise à l'heure correcte de votre PC et
prise en compte du fuseau horaire
on est obligé de passer par une macro pour l'obtenir ?
;o)))
Pire que ça !!!
il s'agit ici d'API Windows (librairy Kernel32)
une interface de code source fournie par Windows en vue de répondre à
des requêtes pour des services et communiquer avec un autre programme
Bonsour® Sam avec ferveur ;o))) vous nous disiez :Il reste un litige entre le 2h et 3h du matin le dernier dimanche
d'octobre car ça peut être la fin de l'heure d'été ou le début de
l'heure d'hiver.
Union européenne
La norme ISO concernant la date permet un traitement informatisé de
l'heure et du changement d'heure estival. La chaîne de caractères
représentant
l'heure indique le fuseau horaire accompagné du changement d'heure
éventuel : par exemple, l'heure légale française est notée en hiver
CET (Central European time, heure d'Europe centrale) et en été CEST
(Central European summer time, heure d'été d'Europe centrale).
À compter de l'année 2002, les changements d'heure en été et en hiver
doivent se faire à des dates prédéfinies (directive 2000/84/CE du
Parlement européen et du Conseil, et document 52000PC0302) :
la période de l'heure d'été commence, à 1 heure du matin, temps
universel (coordonné), le dernier dimanche de mars ;
la période de l'heure d'été se termine, à 1 heure du matin, temps
universel (coordonné), le dernier dimanche d'octobre.
correction à la proposition précédente:
Function HeureEte(target As Date) As String
Application.Volatile
Dim deb As Date, fin As Date, EtoH As Date, HtoE As Date
deb = DateSerial(Year(target), 4, 1)
fin = DateSerial(Year(target), 11, 1)
EtoH = (1 / 24) + fin - Day(fin) + 1 - Weekday(fin - Day(fin) - 7)
HtoE = (1 / 24) - deb - Day(deb) + 1 - Weekday(deb - Day(deb) - 7)
HeureEte = "heure d'" & IIf((target > HtoE) And (target < EtoH),
"été", "hiver")
End FunctionPar contre en décryptant la macro de Paul?, ( Paul est Mickey ;o))),
il semblerait que
l'ordinateur pourrait me fournir directement l'heure TU actuelle,
Voir remarque concernant la mise à l'heure correcte de votre PC et
prise en compte du fuseau horaireon est obligé de passer par une macro pour l'obtenir ?
;o)))
Pire que ça !!!
il s'agit ici d'API Windows (librairy Kernel32)
une interface de code source fournie par Windows en vue de répondre à
des requêtes pour des services et communiquer avec un autre programme
Bonsour® Sam avec ferveur ;o))) vous nous disiez :Il reste un litige entre le 2h et 3h du matin le dernier dimanche
d'octobre car ça peut être la fin de l'heure d'été ou le début de
l'heure d'hiver.
Union européenne
La norme ISO concernant la date permet un traitement informatisé de
l'heure et du changement d'heure estival. La chaîne de caractères
représentant
l'heure indique le fuseau horaire accompagné du changement d'heure
éventuel : par exemple, l'heure légale française est notée en hiver
CET (Central European time, heure d'Europe centrale) et en été CEST
(Central European summer time, heure d'été d'Europe centrale).
À compter de l'année 2002, les changements d'heure en été et en hiver
doivent se faire à des dates prédéfinies (directive 2000/84/CE du
Parlement européen et du Conseil, et document 52000PC0302) :
la période de l'heure d'été commence, à 1 heure du matin, temps
universel (coordonné), le dernier dimanche de mars ;
la période de l'heure d'été se termine, à 1 heure du matin, temps
universel (coordonné), le dernier dimanche d'octobre.
correction à la proposition précédente:
Function HeureEte(target As Date) As String
Application.Volatile
Dim deb As Date, fin As Date, EtoH As Date, HtoE As Date
deb = DateSerial(Year(target), 4, 1)
fin = DateSerial(Year(target), 11, 1)
EtoH = (1 / 24) + fin - Day(fin) + 1 - Weekday(fin - Day(fin) - 7)
HtoE = (1 / 24) - deb - Day(deb) + 1 - Weekday(deb - Day(deb) - 7)
HeureEte = "heure d'" & IIf((target > HtoE) And (target < EtoH),
"été", "hiver")
End FunctionPar contre en décryptant la macro de Paul?, ( Paul est Mickey ;o))),
il semblerait que
l'ordinateur pourrait me fournir directement l'heure TU actuelle,
Voir remarque concernant la mise à l'heure correcte de votre PC et
prise en compte du fuseau horaireon est obligé de passer par une macro pour l'obtenir ?
;o)))
Pire que ça !!!
il s'agit ici d'API Windows (librairy Kernel32)
une interface de code source fournie par Windows en vue de répondre à
des requêtes pour des services et communiquer avec un autre programme
Bonsour® Sam avec ferveur ;o))) vous nous disiez :
Il reste un litige entre le 2h et 3h du matin le dernier dimanche
d'octobre car ça peut être la fin de l'heure d'été ou le début de
l'heure d'hiver.
Union européenne
La norme ISO concernant la date permet un traitement informatisé de
l'heure et du changement d'heure estival. La chaîne de caractères
représentant
l'heure indique le fuseau horaire accompagné du changement d'heure
éventuel : par exemple, l'heure légale française est notée en hiver
CET (Central European time, heure d'Europe centrale) et en été CEST
(Central European summer time, heure d'été d'Europe centrale).
À compter de l'année 2002, les changements d'heure en été et en hiver
doivent se faire à des dates prédéfinies (directive 2000/84/CE du
Parlement européen et du Conseil, et document 52000PC0302) :
la période de l'heure d'été commence, à 1 heure du matin, temps
universel (coordonné), le dernier dimanche de mars ;
la période de l'heure d'été se termine, à 1 heure du matin, temps
universel (coordonné), le dernier dimanche d'octobre.
correction à la proposition précédente:
Function HeureEte(target As Date) As String
Application.Volatile
Dim deb As Date, fin As Date, EtoH As Date, HtoE As Date
deb = DateSerial(Year(target), 4, 1)
fin = DateSerial(Year(target), 11, 1)
EtoH = (1 / 24) + fin - Day(fin) + 1 - Weekday(fin - Day(fin) - 7)
HtoE = (1 / 24) - deb - Day(deb) + 1 - Weekday(deb - Day(deb) - 7)
HeureEte = "heure d'" & IIf((target > HtoE) And (target < EtoH),
"été", "hiver")
End Function
Par contre en décryptant la macro de Paul?, ( Paul est Mickey ;o))),
il semblerait que
l'ordinateur pourrait me fournir directement l'heure TU actuelle,
Voir remarque concernant la mise à l'heure correcte de votre PC et
prise en compte du fuseau horaire
on est obligé de passer par une macro pour l'obtenir ?
;o)))
Pire que ça !!!
il s'agit ici d'API Windows (librairy Kernel32)
une interface de code source fournie par Windows en vue de répondre à
des requêtes pour des services et communiquer avec un autre programme
Bonsour® Sam avec ferveur ;o))) vous nous disiez :Il reste un litige entre le 2h et 3h du matin le dernier dimanche
d'octobre car ça peut être la fin de l'heure d'été ou le début de
l'heure d'hiver.
Union européenne
La norme ISO concernant la date permet un traitement informatisé de
l'heure et du changement d'heure estival. La chaîne de caractères
représentant
l'heure indique le fuseau horaire accompagné du changement d'heure
éventuel : par exemple, l'heure légale française est notée en hiver
CET (Central European time, heure d'Europe centrale) et en été CEST
(Central European summer time, heure d'été d'Europe centrale).
À compter de l'année 2002, les changements d'heure en été et en hiver
doivent se faire à des dates prédéfinies (directive 2000/84/CE du
Parlement européen et du Conseil, et document 52000PC0302) :
la période de l'heure d'été commence, à 1 heure du matin, temps
universel (coordonné), le dernier dimanche de mars ;
la période de l'heure d'été se termine, à 1 heure du matin, temps
universel (coordonné), le dernier dimanche d'octobre.
correction à la proposition précédente:
Function HeureEte(target As Date) As String
Application.Volatile
Dim deb As Date, fin As Date, EtoH As Date, HtoE As Date
deb = DateSerial(Year(target), 4, 1)
fin = DateSerial(Year(target), 11, 1)
EtoH = (1 / 24) + fin - Day(fin) + 1 - Weekday(fin - Day(fin) - 7)
HtoE = (1 / 24) - deb - Day(deb) + 1 - Weekday(deb - Day(deb) - 7)
HeureEte = "heure d'" & IIf((target > HtoE) And (target < EtoH),
"été", "hiver")
End FunctionPar contre en décryptant la macro de Paul?, ( Paul est Mickey ;o))),
il semblerait que
l'ordinateur pourrait me fournir directement l'heure TU actuelle,
Voir remarque concernant la mise à l'heure correcte de votre PC et
prise en compte du fuseau horaireon est obligé de passer par une macro pour l'obtenir ?
;o)))
Pire que ça !!!
il s'agit ici d'API Windows (librairy Kernel32)
une interface de code source fournie par Windows en vue de répondre à
des requêtes pour des services et communiquer avec un autre programme
Bonjour,
existe t'il une méthode pour savoir si pour une date donnée on est en
heure d'hiver ou en heure d'été ?
Merci d'avance
Cordialement
Michel
Bonjour,
existe t'il une méthode pour savoir si pour une date donnée on est en
heure d'hiver ou en heure d'été ?
Merci d'avance
Cordialement
Michel
Bonjour,
existe t'il une méthode pour savoir si pour une date donnée on est en
heure d'hiver ou en heure d'été ?
Merci d'avance
Cordialement
Michel
Au plus simple :
Sub SummerHour()
Dim Obj As Object, Msg$: Msg = "Heure d'hiver !"
For Each Obj In
GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem") If
Obj.DayLightinEffect Then Msg = "Heure d'été !" Next
MsgBox Msg, 64
End Sub
Au plus simple :
Sub SummerHour()
Dim Obj As Object, Msg$: Msg = "Heure d'hiver !"
For Each Obj In
GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem") If
Obj.DayLightinEffect Then Msg = "Heure d'été !" Next
MsgBox Msg, 64
End Sub
Au plus simple :
Sub SummerHour()
Dim Obj As Object, Msg$: Msg = "Heure d'hiver !"
For Each Obj In
GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem") If
Obj.DayLightinEffect Then Msg = "Heure d'été !" Next
MsgBox Msg, 64
End Sub
nb :
n'aurais-tu point commis ici-même il y a déja pas mal de temps
un classeur avec les dates fériées dans plusieurs pays autres que la France
Bonsour® Michel Pierron avec ferveur ;o))) vous nous disiez :Au plus simple :
Sub SummerHour()
Dim Obj As Object, Msg$: Msg = "Heure d'hiver !"
For Each Obj In
GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem") If
Obj.DayLightinEffect Then Msg = "Heure d'été !" Next
MsgBox Msg, 64
End Sub
Joli !!
en effet mais ceci ne vaut que pour la date courante sur le poste utilisé et
dépendement de la mise à l'heure correcte de ce poste.
Toujours dépendement du poste
comment integrer la liste des fuseaux (décalage UTC) utilisée par Windows
et ceci pour n'importe quelle date utilisée ?
ex :
Summerhour(Unedate, décalage UTC)
sachant évidement que pour un même fuseau certain pays n'utilisent pas le même
décalage
;o)))
http://excelabo.net/moteurs/compteclic.php?nom=gd-worldtime
http://excelabo.net/moteurs/compteclic.php?nom=mp-timezone
nb :
n'aurais-tu point commis ici-même il y a déja pas mal de temps
un classeur avec les dates fériées dans plusieurs pays autres que la France
salutations
nb :
n'aurais-tu point commis ici-même il y a déja pas mal de temps
un classeur avec les dates fériées dans plusieurs pays autres que la France
Bonsour® Michel Pierron avec ferveur ;o))) vous nous disiez :
Au plus simple :
Sub SummerHour()
Dim Obj As Object, Msg$: Msg = "Heure d'hiver !"
For Each Obj In
GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem") If
Obj.DayLightinEffect Then Msg = "Heure d'été !" Next
MsgBox Msg, 64
End Sub
Joli !!
en effet mais ceci ne vaut que pour la date courante sur le poste utilisé et
dépendement de la mise à l'heure correcte de ce poste.
Toujours dépendement du poste
comment integrer la liste des fuseaux (décalage UTC) utilisée par Windows
et ceci pour n'importe quelle date utilisée ?
ex :
Summerhour(Unedate, décalage UTC)
sachant évidement que pour un même fuseau certain pays n'utilisent pas le même
décalage
;o)))
http://excelabo.net/moteurs/compteclic.php?nom=gd-worldtime
http://excelabo.net/moteurs/compteclic.php?nom=mp-timezone
nb :
n'aurais-tu point commis ici-même il y a déja pas mal de temps
un classeur avec les dates fériées dans plusieurs pays autres que la France
salutations
nb :
n'aurais-tu point commis ici-même il y a déja pas mal de temps
un classeur avec les dates fériées dans plusieurs pays autres que la France
Bonsour® Michel Pierron avec ferveur ;o))) vous nous disiez :Au plus simple :
Sub SummerHour()
Dim Obj As Object, Msg$: Msg = "Heure d'hiver !"
For Each Obj In
GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem") If
Obj.DayLightinEffect Then Msg = "Heure d'été !" Next
MsgBox Msg, 64
End Sub
Joli !!
en effet mais ceci ne vaut que pour la date courante sur le poste utilisé et
dépendement de la mise à l'heure correcte de ce poste.
Toujours dépendement du poste
comment integrer la liste des fuseaux (décalage UTC) utilisée par Windows
et ceci pour n'importe quelle date utilisée ?
ex :
Summerhour(Unedate, décalage UTC)
sachant évidement que pour un même fuseau certain pays n'utilisent pas le même
décalage
;o)))
http://excelabo.net/moteurs/compteclic.php?nom=gd-worldtime
http://excelabo.net/moteurs/compteclic.php?nom=mp-timezone
nb :
n'aurais-tu point commis ici-même il y a déja pas mal de temps
un classeur avec les dates fériées dans plusieurs pays autres que la France
salutations