XProfan

Windowtitle upper$("  Anzahl el Tage zwischen zwei Datumsangaben"):font 2:randomize:clrs
Appendmenubar 100,"Achtung: Gilt sólo en el Zeiraum 1.01.1901 a 31.12.2099 !"
Declarar 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
NEU:
PRINT "\n Bitte el Bezugsdatum eingeben: (Enter para "heute")\n"
clear m&,d&,y&,n!,r!:Eingab :R!=N!:otra vez:
PRINT "\n Abfragedatum eingeben:\n":Eingab
A!=N!-R!:PRINT "\n Anzahl el dazwischen liegenden Tage: ";int(abs(A!))

if %csrlin>24:waitinput:clrs:endif

    if int(A!)=0:Imprimir "\n Wird una neues Bezugsdatum gewünscht [j/n]? ";:input a$

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

        proc Eingab

            Imprimir " Jahr (4-stellig): ";:input y&

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

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

            más

                mon:
                Imprimir " Monat (2stellig): ";:input m&
                caso (m&<1) or (m&>12):goto "mon"
                day:
                Imprimir " Tag  (2-stellig): ";:input d&
                caso (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