XProfan

Windowtitle upper$("  Number of days between two Datumsangaben"):font 2:randomize:clrs
Appendmenubar 100,"Achtung: counts only Zeiraum 1.01.1901 To 31.12.2099 !"
Declare 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 Please the Bezugsdatum prompt: (Enter for "today")\n"
clear m&,d&,y&,n!,r!:Eingab :R!=n!:again:
PRINT "\n Abfragedatum prompt:\n":Eingab
A!=n!-R!:PRINT "\n Number of between liegenden days: ";int(abs(A!))

if %csrlin>24:waitinput:clrs:endif

    if int(A!)=0:Print "\n becomes one new Bezugsdatum desired [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

            Print " year (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)):print " ";y&,m&,d&;"\n"

            else

                mon:
                Print " month (2stellig): ";:input m&
                case (m&<1) or (m&>12):goto "mon"
                day:
                Print " day  (2-stellig): ";:input d&
                case (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