XProfan

'A small example, How to the old in years to charge can (ex Profan X2).
'of Torben Nissen
'16.04.2015
Declare aktuellesjahr!,aktuellermonat!,aktuellertag!
Declare date of birth$,date of birth!,year of birth!,geburtsmonat!,birthday!
Declare old!,old$
aktuellesjahr!=@dt("getYear", !now)
aktuellermonat!=@dt("getMonth", !now)
aktuellertag!=@dt("getDay", !now)
geburtsdatum$="17.01.2000"
geburtsdatum!=@dt("setDate", date of birth$)
geburtsjahr!=@dt("getYear", date of birth!)
geburtsmonat!=@dt("getMonth", date of birth!)
geburtstag!=@dt("getDay", date of birth!)
Set("Decimals",0)

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

    old! = aktuellesjahr! - year of birth! - 1

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

    old! = aktuellesjahr! - year of birth!

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

    old! = aktuellesjahr! - year of birth!

EndIf

If aktuellermonat! < geburtsmonat!

    old! = aktuellesjahr! - year of birth! - 1

ElseIf aktuellermonat! > geburtsmonat!

    old! = aktuellesjahr! - year of birth!

EndIf

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

function old(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)
    old = (datMT < gebMT)+(datJ-gebJ)
    End If
    end function

function mv(geb)
Dim dat, datJ, datMT, gebJ, gebMT, old
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)
    old = (datMT < gebMT)+(datJ-gebJ)

    If old < 18 Then

        mv = "m"

    Else

        mv = "v"
        End If
        End If
        end function

Randomize
Var birthday$ = Input$("Bitte date of birth eingeben","Mein Alter",Dt("GetDate",0,!Now - Rnd(20000)))
Var s$ = Left$(birthday$,6) + Str $(DT("getYear",!Now))'here supplant I simply The Jahreszahl the Geburtsjahres by the actually Jahreszahl
Var n% = Dt("CompareDate",!Now,Dt("SetDate",s$))
'loudly Help ought to SetDate the really automatically make, the functions but apparently not.
Var old% = Abs(DT("GetYear",!Now) - DT("GetYear",Dt("SetDate",birthday$)))

Select n%

    CaseOf 1

    print "Du are on the " + Left$(birthday$,6) + Str $(DT("getYear",!Now)) + " " + Str $(old%) + " become."

    CaseOf 0

    Print "Herzlichen Glückwunsch to that " + Str $(old%) + ". birthday!"

    CaseOf -1

    print "Du become on the " + Left$(birthday$,6) + Str $(DT("getYear",!Now)) + " " + Str $(old%)

EndSelect

Print
WaitInput

print  old("1978.07.21")
waitinput

proc old

    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 old("19781210")// date of birth in the Datenbankformat yyyymmdd

proc old(geb)

    var dat   = time(10)// 10: News date in the Datenbankformat yyyymmdd
    var datJ  = st(dat,1,4)// with Include possible left()
    var gebJ  = st(geb,1,4)
    var datMT = st(dat,1,4)// with Include possible mid()
    var gebMT = st(geb,5,4)
    // print (datMT < gebMT) // to that Test the possible numerischen Repräsentation of true
    // otherwise "wandeln"
    return -(datMT < gebMT)+(datJ-gebJ)// ev. then testing, less How with XProfan ???

endproc