XProfan

Windowtitle upper$("  Anzahl der Tage zwischen zwei Datumsangaben"):font 2:randomize:clrs
Appendmenubar 100,"Achtung: Gilt nur im Zeiraum 1.01.1901 bis 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
NEU:
PRINT "\n Bitte das Bezugsdatum eingeben: (Enter für "heute")\n"
clear m&,d&,y&,n!,r!:Eingab :R!=N!:nochmal:
PRINT "\n Abfragedatum eingeben:\n":Eingab
A!=N!-R!:PRINT "\n Anzahl der dazwischen liegenden Tage: ";int(abs(A!))

if %csrlin>24:waitinput:clrs:endif

    if int(A!)=0:Print "\n Wird ein 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

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

            else

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