Code:
Symbol VARW=w13
Symbol JOURSEM=b14
Symbol JOUR=b5
Symbol MOIS=b7
Symbol ANNEE=w5
ANNEE=2018
JOUR=27
MOIS=10
do
'L'algorithme de Mike Keith num?rote de 0 ? 6
'Dim=0, Lun=1,...,Sam=6
JOUR=JOUR-1
if MOIS < 3 then
VARW=ANNEE-1
else VARW=ANNEE
end if
JOURSEM= 23*MOIS/9 +JOUR+4+ANNEE
w10=VARW/4
JOURSEM=JOURSEM+w10
w10=VARW/100
JOURSEM=JOURSEM-w10
w10=VARW/400
JOURSEM=JOURSEM+w10
if MOIS>= 3 then
JOURSEM=JOURSEM-2
endif
JOURSEM=JOURSEM//7+1
debug
Loop
PE6 est totalement bloqué dès la fin du download (qui se passe bien).
C'est juste un test, pour l'horloge.
Rien d’exotique.
Ça plante aussi, chez vous ?
(Sous PE5, ça roule ... Étrange ...)
Last edited: