XProfan

'un kleines Beispiel, comment on cela Alter dans Jahren berechnen peux (ab Profan X2).
'de Torben Nissen
'16.04.2015
Déclarer aktuellesjahr!,aktuellermonat!,aktuellertag!
Déclarer date de naissance$,date de naissance!,geburtsjahr!,geburtsmonat!,anniversaire!
Déclarer alter!,alter$
aktuellesjahr!=@dt("getYear", !now)
aktuellermonat!=@dt("getMonth", !now)
aktuellertag!=@dt("getDay", !now)
geburtsdatum$="17.01.2000"
geburtsdatum!=@dt("setDate", date de naissance$)
geburtsjahr!=@dt("getYear", date de naissance!)
geburtsmonat!=@dt("getMonth", date de naissance!)
geburtstag!=@dt("getDay", date de naissance!)
Set("Décimal",0)

Si (aktuellertag! < anniversaire!) And (aktuellermonat! = geburtsmonat!)

    alter! = aktuellesjahr! - geburtsjahr! - 1

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

    alter! = aktuellesjahr! - geburtsjahr!

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

    alter! = aktuellesjahr! - geburtsjahr!

EndIf

Si aktuellermonat! < geburtsmonat!

    alter! = aktuellesjahr! - geburtsjahr! - 1

ElseIf aktuellermonat! > geburtsmonat!

    alter! = aktuellesjahr! - geburtsjahr!

EndIf

alter$=alter!
cls
Imprimer "Alter: "+alter$
WaitInput
Fin

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

Si Len(geb)>0 Then

    datJ = À gauche(dat,4)
    gebJ = À gauche(geb,4)
    datMT = Milieu(dat,6,5)
    gebMT = Milieu(geb,6,5)
    alter = (datMT < gebMT)+(datJ-gebJ)
    Fin Si
    end function

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

Si Len(geb)>0 Then

    datJ = À gauche(dat,4)
    gebJ = À gauche(geb,4)
    datMT = Milieu(dat,6,5)
    gebMT = Milieu(geb,6,5)
    alter = (datMT < gebMT)+(datJ-gebJ)

    Si alter < 18 Then

        mv = "m"

    D'autre

        mv = "v"
        Fin Si
        Fin Si
        end function

Randomiser
Var anniversaire$ = Contribution$("Bitte date de naissance eingeben","Mein Alter",Dt("GetDate",0,!Now - Tour(20000)))
Var s$ = Left $(anniversaire$,6) + Str$(DT("getYear",!Now))'ici ersetze je simple qui Jahreszahl des Geburtsjahres par qui aktuelle Jahreszahl
Var n% = Dt("CompareDate",!Now,Dt("SetDate",s$))
'le son Aider sollte SetDate cela eigentlich automatisch faire, cela funktioniert mais anscheinend pas.
Var Alter% = Abs(DT("GetYear",!Now) - DT("GetYear",Dt("SetDate",anniversaire$)))

Select n%

    CaseOf 1

    imprimer "Du es am " + Left $(anniversaire$,6) + Str$(DT("getYear",!Now)) + " " + Str$(Alter%) + " geworden."

    CaseOf 0

    Imprimer "Herzlichen Glückwunsch zum " + Str$(Alter%) + ". anniversaire!"

    CaseOf -1

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

EndSelect

Imprimer
WaitInput

imprimer  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)
    // imprimer (datMT$ > gebMT$)
    return -(datMT$ > gebMT$)+(datJ$-gebJ$)

endproc

imprimer alter("19781210")// date de naissance im Datenbankformat yyyymmdd

proc alter(geb)

    var dat   = time(10)// 10: aktuelles date im Datenbankformat yyyymmdd
    var datJ  = str(dat,1,4)// avec Include eventuell left()
    var gebJ  = str(geb,1,4)
    var datMT = str(dat,1,4)// avec Include eventuell mid()
    var gebMT = str(geb,5,4)
    // imprimer (datMT < gebMT) // zum Test qui eventuellen numerischen Repräsentation de vrai
    // sonst "wandeln"
    return -(datMT < gebMT)+(datJ-gebJ)// ev. ensuite testen, Minus comment chez Xprofan ???

endproc