XProfan

Cls
' Alter berechnen (Pi la fois pouce)
' qui Konstanten achten aussi un bisserl sur Schaltjahres-Gedöhns
' Startdatum, Endedatum
' quoique qui XProfan-la date une anderen Startwert hat (pas l'an 0 mais 1900),
' ist qui Differenz ähnlich et peux c'est pourquoi verwendet volonté.
' Vorteil avec la date - qui Wert ist genauer, si on aussi Uhrzeiten angibt.

Proc Age

    Paramètres int T1,M1,J1, T2,M2,J2
    Déclarer 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 presque gleiche Differenz comment XProfan-la date
    J3 = Int(f / cJ) : f = f - (cJ * J3)
    M3 = Int(f / cM) : f = f - (cM * M3)
    T3 = Int(f + 0.5)
    Retour J3' aus paresse wird seulement Nombre de Jahre geliefert

ENDPROC

' xAge beachtet aussi qui Uhrzeiten (arbeitet avec Zeitpunkten; ab X2)

Proc xAge

    Paramètres float DatumAlt, DatumNeu
    Déclarer 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)
    Retour Format $("%u J, ",J) + Format $("%u M, ",M) + Format $("%u T",T)

ENDPROC

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