dim an,jour,i
dim janv,fevr,mars,avr,mai,juin,juil,aout,sept,oct,nov,dec
width 0,350:height 0,80:caption 0,"Nombre de jour(s) restant avant Noël"
janv=31
fevr=28
mars=31
avr=30
mai=31
juin=30
juil=31
aout=31
sept=30
oct=30
nov=30
dec=31
an=359 : ' - 6 jour vu que décembre en compte 31
print
i=right$(date$,2)

if left$(date$,1)="2012" then fevr=29
if left$(date$,1)="2016" then fevr=29
if left$(date$,1)="2020" then fevr=29
if left$(date$,1)="2024" then fevr=29
if left$(date$,1)="2028" then fevr=29
if left$(date$,1)="2032" then fevr=29

if mid$(date$,6,2)="01" then jour=jour+i
if mid$(date$,6,2)="02" then jour=jour+janv+i
if mid$(date$,6,2)="03" then jour=jour+janv+fevr+i
if mid$(date$,6,2)="04" then jour=jour+janv+fevr+mars+i
if mid$(date$,6,2)="05" then jour=jour+janv+fevr+mars+avr+i
if mid$(date$,6,2)="06" then jour=jour+janv+fevr+mars+avr+mai+i
if mid$(date$,6,2)="07" then jour=jour+janv+fevr+mars+avr+mai+juin+i
if mid$(date$,6,2)="08" then jour=jour+janv+fevr+mars+avr+mai+juin+juil+ri
if mid$(date$,6,2)="09" then jour=jour+janv+fevr+mars+avr+mai+juin+juil+aout+i
if mid$(date$,6,2)="10" then jour=jour+janv+fevr+mars+avr+mai+juin+juil+aout+sept+i
if mid$(date$,6,2)="11" then jour=jour+janv+fevr+mars+avr+mai+juin+juil+aout+sept+oct+i
if mid$(date$,6,2)="12" then jour=jour+janv+fevr+mars+avr+mai+juin+juil+aout+sept+oct+nov+i

jour=an-jour

if jour<2
  print "   Il reste "+str$(jour)+" jour avant Noël !"
else
  print "   Il reste "+str$(jour)+" jours avant Noël !"
end_if