*******************
JOUR DE LA DATE
*******************
Et la dernière aussi, je chante comme mon pied gauche 🙂
Mais une chose est sur, c’est que je ne suis pas né d’hier !
On dit que si l’année est divisible par quatre alors c’est une année bissextile. Mais c’est FAUX. Prenez par exemple l’année 1800 qui n’est pas une année bissextile ! Etonnant non ?
Non seulement ce petit programme vous renseignera sur le jour d’une date (anniversaire, mariage, événement ,…) mais il vous dira aussi si c’était une année bissextile.
Entrez une date sous le format : jj,mm,aaaa en séparant les nombres par une virgule. Exemple pour le 28 mars 1932, entrez : 28,03,1932 puis appuyez sur [ENTER] pour valider.
Alors êtes vous né(e) un samedi ? ou un lundi ? ou peut-être un mercredi ?
Listing :
1 MODE 1:PEN 3:INPUT”jj,mm,aaaa “;x,y,z:c=-(y<3):MODE 0:PRINT” LE: “RIGHT$(STR$(100+x),2)” “RIGHT$(STR$(100+y),2)STR$(z)STRING$(20,&D8),TAB(7)”TOMBE UN”:PEN 4:FOR b=0 TO 6:j$(b)=MID$(“DIMANCHE LUNDI MARDI MERCREDI JEUDI VENDREDI SAMEDI “,b*8+1,8)
2 LOCATE 7,7+b:PRINT j$(b):NEXT:a$(0)=”NON”:a=z-c:m=y+12*c-2:j=(x+a+aç4-aç100+aç400+(31*m)ç12) MOD 7:PEN 13:PRINT,,,TAB(8)”ANNEE”TAB(9)a$(-(z MOD 4=0 AND(z MOD 100>0 OR z MOD 400=0)))” BISSEXTILE”:PEN 15:LOCATE 5,j+7:PRINT”# “j$(j)” #”:CALL &BB06:RUN
Téléchargement : DEUULIGNE #09 JOUR DE LA DATE
0 commentaires