XProfan

'Ein kleines Beispiel, wie man das Alter in Jahren berechnen kann (ab Profan X2).
'von Torben Nissen
'16.04.2015
Declare aktuellesjahr!,aktuellermonat!,aktuellertag!
Declare geburtsdatum$,geburtsdatum!,geburtsjahr!,geburtsmonat!,geburtstag!
Declare alter!,alter$
aktuellesjahr!=@dt("getYear", !now)
aktuellermonat!=@dt("getMonth", !now)
aktuellertag!=@dt("getDay", !now)
geburtsdatum$="17.01.2000"
geburtsdatum!=@dt("setDate", geburtsdatum$)
geburtsjahr!=@dt("getYear", geburtsdatum!)
geburtsmonat!=@dt("getMonth", geburtsdatum!)
geburtstag!=@dt("getDay", geburtsdatum!)
Set("Decimals",0)

If (aktuellertag! < geburtstag!) And (aktuellermonat! = geburtsmonat!)

    alter! = aktuellesjahr! - geburtsjahr! - 1

ElseIf (aktuellertag! > geburtstag!) And (aktuellermonat! = geburtsmonat!)

    alter! = aktuellesjahr! - geburtsjahr!

ElseIf (aktuellertag! = geburtstag!) And (aktuellermonat! = geburtsmonat!)

    alter! = aktuellesjahr! - geburtsjahr!

EndIf

If aktuellermonat! < geburtsmonat!

    alter! = aktuellesjahr! - geburtsjahr! - 1

ElseIf aktuellermonat! > geburtsmonat!

    alter! = aktuellesjahr! - geburtsjahr!

EndIf

alter$=alter!
cls
Print "Alter: "+alter$
WaitInput
End

function alter(geb)
Dim dat, datJ, datMT, gebJ, gebMT
dat = DBToday

If Len(geb)>0 Then

    datJ = Left(dat,4)
    gebJ = Left(geb,4)
    datMT = Mid(dat,6,5)
    gebMT = Mid(geb,6,5)
    alter = (datMT < gebMT)+(datJ-gebJ)
    End If
    end function

function mv(geb)
Dim dat, datJ, datMT, gebJ, gebMT, alter
dat = DBToday

If Len(geb)>0 Then

    datJ = Left(dat,4)
    gebJ = Left(geb,4)
    datMT = Mid(dat,6,5)
    gebMT = Mid(geb,6,5)
    alter = (datMT < gebMT)+(datJ-gebJ)

    If alter < 18 Then

        mv = "m"

    Else

        mv = "v"
        End If
        End If
        end function

Randomize
Var Geburtstag$ = Input$("Bitte Geburtsdatum eingeben","Mein Alter",Dt("GetDate",0,!Now - Rnd(20000)))
Var s$ = Left$(Geburtstag$,6) + Str$(DT("getYear",!Now))'hier ersetze ich einfach die Jahreszahl des Geburtsjahres durch die aktuelle Jahreszahl
Var n% = Dt("CompareDate",!Now,Dt("SetDate",s$))
'laut Hilfe sollte SetDate das eigentlich automatisch machen, das funktioniert aber anscheinend nicht.
Var Alter% = Abs(DT("GetYear",!Now) - DT("GetYear",Dt("SetDate",Geburtstag$)))

Select n%

    CaseOf 1

    print "Du bist am " + Left$(Geburtstag$,6) + Str$(DT("getYear",!Now)) + " " + Str$(Alter%) + " geworden."

    CaseOf 0

    Print "Herzlichen Glückwunsch zum " + Str$(Alter%) + ". Geburtstag!"

    CaseOf -1

    print "Du wirst am " + Left$(Geburtstag$,6) + Str$(DT("getYear",!Now)) + " " + Str$(Alter%)

EndSelect

Print
WaitInput

print  alter("1978.07.21")
waitinput

proc alter

    parameters geb$
    declare dat$, datJ$, datMT$, gebJ$, gebMT$
    dat$ = "2015.04.15"
    datJ$ = left$(dat$,4)
    gebJ$ = left$(geb$,4)
    datMT$ = mid$(dat$,6,5)
    gebMT$ = mid$(geb$,6,5)
    // print (datMT$ > gebMT$)
    return -(datMT$ > gebMT$)+(datJ$-gebJ$)

endproc

print alter("19781210")// Geburtsdatum im Datenbankformat yyyymmdd

proc alter(geb)

    var dat   = time(10)// 10: aktuelles Datum im Datenbankformat yyyymmdd
    var datJ  = str(dat,1,4)// mit Include eventuell left()
    var gebJ  = str(geb,1,4)
    var datMT = str(dat,1,4)// mit Include eventuell mid()
    var gebMT = str(geb,5,4)
    // print (datMT < gebMT) // zum Test der eventuellen numerischen Repräsentation von true
    // sonst "wandeln"
    return -(datMT < gebMT)+(datJ-gebJ)// ev. dann testen, Minus wie bei Xprofan ???

endproc