XProfan

Windowtitle upper$("  Nombre de Tage entre deux Datumsangaben"):font 2:randomize:clrs
Appendmenubar 100,"Achtung: Gilt seulement im Zeiraum 1.01.1901 jusqu'à 31.12.2099 !"
Déclarer a!,a$,y&,m&,d&,n!,r!,A![12]:A![1]=0:A![2]=31:A![3]=59.25:A![4]=90.25:A![5]=120.25
A![6]=151.25:A![7]=181.25:A![8]=212.25:A![9]=243.25:A![10]=273.25:A![11]=304.25:A![12]=334.25
NEW:
PRINT "\n s'il te plaît cela Bezugsdatum eingeben: (Enter pour "aujourd'hui")\n"
clear m&,d&,y&,n!,r!:Eingab :R!=N!:nochmal:
PRINT "\n Abfragedatum eingeben:\n":Eingab
A!=N!-R!:PRINT "\n Nombre de entre liegenden Tage: ";int(abs(A!))

si %csrlin>24:waitinput:clrs:endif

    si int(A!)=0:Imprimer "\n Wird un nouveau Bezugsdatum gewünscht [j/n]? ";:input a$

        a$=$ Trim(a$):a$=lower$(a$):a$=left$(a$,1):si (a$="j") or (a$="y") or (a$="1")
        clrs:goto "NEU":endif
        endif:goto "nochmal"

        proc Eingab

            Imprimer " l'an (4-stellig): ";:input y&

            si y&=0:y&=val(left$(date$(3),4)):m&=val(mid$(date$(3),5,2))

                d&=val(right$(date$(3),2)):imprimer " ";y&,m&,d&;"\n"

            d'autre

                mon:
                Imprimer " mois (2stellig): ";:input m&
                cas (m&<1) or (m&>12):goto "mon"
                day:
                Imprimer " journée  (2-stellig): ";:input d&
                cas (d&<1) or (d&>31):goto "day"

            endif

            N!=365.25*(Y&-1901)+A![M&]+D&:N!=int(N!)

        endproc

        proc clrs :CLS rgb(200+rnd(56),200+rnd(56),200+rnd(56))

        endproc