<perl>
#
# Für dieses Beispiel Datums-Ausgabeformat
# "02.August.20000" in Datenbank wählen
# oder die Split-Funktion anpassen.
#
# Angenommene Ausgabe der DB
#
$Geburtstag = "12.August.1975";
#
$jahre_seit_1970 = time()/365/24/3620;
$tage_seit_1970 = time()/24/3620;
$tagebisheute= 1970*365+$tage_seit_1970;
#
# Test
out $tagebisheute;
out "<br>";
#
@Geburtstag = split(/\./,$Geburtstag);
#
# String anpassen (nicht ausgeführt...
#
$Geburtstag[1] = "1" if $Geburtstag[1] == "Januar";
#
$tagegeburtstag = $Geburtstag[2]*365+($Geburtstag[1]*30)+$Geburtstag[0];
# Test
out $tagegeburtstag ,"<br>";
#
$tage_seit_geburtstag = $tagebisheute - $tagegeburtstag;
$alter = $tage_seit_geburtstag/365;
out $alter;
</perl>
