XProfan

'Ein kleines Ejemplo, cómo hacerlo Alter en Jahren berechnen kann (de Profano X2).
'de Torben Nissen
'16.04.2015
Declarar aktuellesjahr!,aktuellermonat!,aktuellertag!
Declarar geburtsdatum$,geburtsdatum!,geburtsjahr!,geburtsmonat!,geburtstag!
Declarar 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!)
Conjunto("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
Imprimir "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"

    Más

        mv = "v"
        End If
        End If
        end function

Selección aleatoria
Var Geburtstag$ = Entrada$("Bitte Geburtsdatum eingeben","Mein Alter",Dt("GetDate",0,!Now - Rnd(20000)))
Var s$ = Left$(Geburtstag$,6) + Str$(DT("getYear",!Now))'hier ersetze Yo simplemente el Jahreszahl des Geburtsjahres por el aktuelle Jahreszahl
Var n% = Dt("CompareDate",!Now,Dt("SetDate",s$))
'laut Ayuda debería SetDate el eigentlich automáticamente hacer, el funktioniert aber anscheinend no.
Var Alter% = Abs(DT("GetYear",!Now) - DT("GetYear",Dt("SetDate",Geburtstag$)))

Select n%

    CaseOf 1

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

    CaseOf 0

    Imprimir "Herzlichen Glückwunsch para " + Str$(Alter%) + ". Geburtstag!"

    CaseOf -1

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

EndSelect

Imprimir
WaitInput

imprimir  alter("1978.07.21")
waitinput

proc alter

    parámetros geb$
    declarar 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)
    // imprimir (datMT$ > gebMT$)
    volver -(datMT$ > gebMT$)+(datJ$-gebJ$)

ENDPROC

imprimir alter("19781210")// Geburtsdatum en el Datenbankformat yyyymmdd

proc alter(geb)

    var dat   = time(10)// 10: aktuelles Datum en el Datenbankformat yyyymmdd
    var datJ  = str(dat,1,4)// con Incluir eventuell left()
    var gebJ  = str(geb,1,4)
    var datMT = str(dat,1,4)// con Incluir eventuell mid()
    var gebMT = str(geb,5,4)
    // imprimir (datMT < gebMT) // para Test el eventuellen numerischen Repräsentation de true
    // sonst "wandeln"
    volver -(datMT < gebMT)+(datJ-gebJ)// ev. entonces testen, Minus como en Xprofan ???

ENDPROC