la date ok, mais c'est quel jour de la semaine ?

rem obtenir le jour de la semaine d'après une date donnée entre 1900 et 2999
dim mois(12)
dim nom_jour$(7)
dim x,y,z
dim j,m,a
dim bissextile



rem jour, mois et année donnée par l'utilisateur exemple : 21/08/1987
j=21
m=8
a=1987


rem on initialise le tableau des noms de jours
nom_jour$(0)="Samedi"
nom_jour$(1)="Dimanche"
nom_jour$(2)="Lundi"
nom_jour$(3)="Mardi"
nom_jour$(4)="Mercredi"
nom_jour$(5)="jeudi"
nom_jour$(6)="Vendredi"

bissextile=0: rem année non bissextile par défaut. (=1 si bissextile)

rem on teste si l'année est bissextile
rem une année est bissextile quand :
rem elle est divisible par 4 mais non par 100
rem ou bien si l'année est divisible par 400.
if frac(a/4)=0
    if frac(a/100)>0 then bissextile=1:  rem oui, année bissextile
end_if
if frac(a/400)=0 then bissextile=1: rem oui, année bissextile



rem replissage du tableau mois(N) contenant le code des mois
mois(1)=1: if bissextile=1 then mois(1)=0: rem janvier
mois(2)=4: if bissextile=1 then mois(1)=3: rem fevrier
mois(3)=4: rem mars
mois(4)=0: rem avril
mois(5)=2: rem mai
mois(6)=5: rem juin
mois(7)=0: rem juillet
mois(8)=3: rem aout
mois(9)=6: rem septembre
mois(10)=1: rem octobre
mois(11)=4: rem novembre
mois(12)=6: rem decembre

rem on garde les 2 derniers chiffres de l'annee et on divise ce nombre par 4
x=0
if a<2000
    x=a-1900
else
    x=a-2000
end_if
rem on ne prend que la valeur entière de la division.
y=int(x/4)

rem on additionne x + y + code du mois + numero du jour.
rem on garde le reste de la division de l'ensemble par 7.
z=(x+y+mois(m)+j)
z=z-(int(z/7)*7)

rem si l'année donnée est égale ou supérieure à 2000 on retire 1 à ce résultat
if a>1999 then z=z-1

rem il ne reste plus qu'à identifier le nom du jour
print "La date du "+str$(j)+"/"+str$(m)+"/"+str$(a)
if bissextile=1 then print "est une année bissextile et"
print "c'est un "+nom_jour$(z)+" !"


end