Le deuligne de RetroPoke #09 JOUR DE LA DATE

*******************
JOUR DE LA DATE
*******************

Cette année-là, je chantais pour la première fois.
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 !

Souvenez-vous du jour de la semaine que vous êtes né(e) ? Et l'année était-elle bissextile ?

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 commentaire

Envoyer un commentaire Annuler la réponse

Vous devez vous connecter pour publier un commentaire.

Evènements

Live en cours Jeu 29 Oct · 12h Sortie de ùCPM #8 Autre
Aujourd'hui Lun 9 Nov · 20h30 Geekorex Twitch
À venir Ven 13 Nov · 22h Xyphoe YouTube
À venir Ven 17 Sep 2027 · 9h → dim 19 Sep 2027 · 18h Amstrad Connection 86120 Saint-Léger-de-Montbrillais