Code : Tout sélectionner
;Printemps :
;- passer de l'heure normale à l'heure d'été
;- l'horloge est avancée d'une heure à à 2h le dernier dimanche du mois de mars.
;Automne :
;- passer de l'heure d'été à l'heure normale
;- l'horloge est retardée d'une heure à 3h le dernier dimanche du mois d'octobre.
#Printemps = 3
#Automne = 10
Procedure ChercheDernierDimanche(Annee, Mois)
Jour=31
DateDernierDimanche=Date(Annee, Mois, Jour, 0, 0, 0)
;Cherche le dernier dimanche
While DayOfWeek(DateDernierDimanche)<>0
jour - 1
DateDernierDimanche= Date(annee, mois, jour, 0, 0, 0)
Wend
ProcedureReturn DateDernierDimanche
EndProcedure
Annee = Val(InputRequester("Changement d'heure", "Quelle année ?", Str(Year(Date()))))
If Annee > 1970 And Annee < 2038
Dimanche = ChercheDernierDimanche(Annee, #Printemps)
Debug "Passage de l'heure normale à l'heure d'été = " + Str(Day(Dimanche)) + "/" + Str(Month(Dimanche)) + "/" + Str(Year(Dimanche))
Dimanche = ChercheDernierDimanche(Annee, #Automne)
Debug "Passage de l'heure d'été à l'heure normale = " + Str(Day(Dimanche)) + "/" + Str(Month(Dimanche)) + "/" + Str(Year(Dimanche))
EndIf