Éphéméride du jour, avec:
le jour
la date
le numéro de semaine
le numéro du mois ainsi que son nom
l'année
le quantième jour de l'année
le nombre de jours restant pour finir l'année
et enfin l'indication si l'années est bissextiles ou non.
#-actuellement ne fonctionne pas pour le mois de janvier-
---------------------------------------------------------
PROGRAM:EPHEMERI

EffTtesListes
EffÉcran

0→A:0→M:0→J:0→B:0→Q
0→K:0→D:0→L:0→S:0→R
affDate→L₆
L₆(1)→A
L₆(2)→M
L₆(3)→J
{31,28,31,30,31,30,31,31,30,31,30,31}→L₄

joursem(A,M,J)→K
If K=1:"dimanche"→Chn1
If K=2:"lundi"→Chn1
If K=3:"mardi"→Chn1
If K=4:"mercredi"→Chn1
If K=5:"jeudi"→Chn1
If K=6:"vendredi"→Chn1
If K=7:"samedi"→Chn1

If M=1:"janvier"→Chn0
If M=2:"février"→Chn0
If M=3:"mars"→Chn0
If M=4:"avril"→Chn0
If M=5:"mai"→Chn0
If M=6:"juin"→Chn0
If M=7:"juillet"→Chn0
If M=8:"août"→Chn0
If M=9:"septembre"→Chn0
If M=10:"octobre"→Chn0
If M=11:"novembre"→Chn0
If M=12:"décembre"→Chn0

If reste(A,4)=0 et reste(A,100)≠0 ou reste(A,400)=0
B+1→B

som(L₄,1,M-1)+J→Q
Q+B→Q

joursem(A,01,01)→L
If L=2:R+1→R:0→S
If L=3:R+7→R:1→S
If L=4:R+6→R:1→S
If L=5:R+5→R:1→S
If L=6:R+4→R:0→S
If L=7:R+3→R:0→S
If L=1:R+2→R:0→S
((Q+7-R)/7)+S→S

Output(1,6,"Jour"):Output(1,14,Chn1)
Output(2,6,"Date"):Output(2,14,J)
Output(3,6,"Semaine"):Output(3,14,partEnt(S))
Output(4,6,"Mois"):Output(4,11,M):Output(4,14,Chn0)
Output(5,6,"Année"):Output(5,14,A)
Output(6,4,"jour numéro    "):Output(6,20,Q)
Output(7,4,"jours restants "):Output(7,20,365+B-Q)

If B=1:Then
Output(9,6,"(année bissextile)"
Else
Output(9,3,"(année non bissextile)"
End

Pause 
EffÉcran
EffTtesListes