XProfan

Cls
' Alter berechnen (Pi veces Daumen)
' El Konstanten achten auch una bisserl en Schaltjahres-Gedöhns
' Startdatum, Endedatum
' Obwohl el XProfan-Zeitpunkt una otro Startwert ha (no Jahr 0 pero 1900),
' Es el Differenz ähnlich y kann deshalb verwendet voluntad.
' Vorteil con Zeitpunkt - el Valor es genauer, si uno auch Uhrzeiten angibt.

Proc Age

    Parámetros int T1,M1,J1, T2,M2,J2
    Declarar int T3,M3,J3,  float f
    Var float cJ = 365.2425
    Var float cM = 30.4375
    f = (J2 * cJ) + (M2 * cM) + T2
    f = f - ((J1 * cJ) + (M1 * cM) + T1)'ergibt fast gleiche Differenz como XProfan-Zeitpunkt
    J3 = Int(f / cJ) : f = f - (cJ * J3)
    M3 = Int(f / cM) : f = f - (cM * M3)
    T3 = Int(f + 0.5)
    Volver J3' de Faulheit se sólo Anzahl el Jahre geliefert

ENDPROC

' xAge beachtet auch el Uhrzeiten (arbeitet con Zeitpunkten; de X2)

Proc xAge

    Parámetros float DatumAlt, DatumNeu
    Declarar int T,M,J,  float f
    Var float cJ = 365.2425
    Var float cM = 30.4375
    f = DatumNeu - DatumAlt
    J = Int(f / cJ) : f = f - (cJ * J)
    M = Int(f / cM) : f = f - (cM * M)
    T = Int(f + 0.5)
    Volver Formato$("%u J, ",J) + Formato$("%u M, ",M) + Formato$("%u T",T)

ENDPROC

Imprimir "\n Alter berechnen \n"
Imprimir " Age: "; Age(27,12,1961, 18,3,2016)
Imprimir "xAge: "; xAge( dt("SetDate", "27.12.1961"), dt("SetDate", "18.03.2016") )
WaitInput
End