<?
//v3.1 www.exoops.info 2006/03
/* ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** **
**          A L T E R S B E R E C H E N U G           **
**                   Version 1.1                      **
**                (C) Stefan Giehl                    **
**       Email: webmaster@feuerwehr-eisingen.de       **
**                                                    **
** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** */
##################################################################################
# Friend Finder for e-xoops  Version 3.02 beta                                 #
#                                                                                #
# Script design  : PhpMeet  :   Copyright 2002 Jeremy Ross-webmaster@phprank.com #
# Created 15/01/02              Last Modified 15/01/02                           #
# Scripts Home              :   http://www.jrscripts.com                         #
#                                                                                #
# Xoops-RC2 French Version  :   jokerman@free.fr                                 #
# Web Home                     :   http://www.webetfric.com                      #
#                                                                                #
# Xoops-RC2 English Version :          Neon@neon.qldgamers.com                   #
# Web Home                  :   http://neon.qldgamers.com                        #
#                                                                                #
#                 Redesigned and new improvemends by                             #
#        eagle81 Manuel Caballero       Manuel@dancepartner.net                  #
#                    http://www.dancepartner.net                                 #
#                             2002-09-12                                         #
##################################################################################
function getage($birth) {
/* String auf Längengültigkeit überprüfen */
if(strlen($birth) != 10) {
die (_MD_FRIENDFINDER_ERROR1);
}
/* Auslesen der Daten aus übergebenem String */
if(
(substr($birth,2,1) == "." || substr($birth,2,1) == "-") &&
(substr($birth,5,1) == "." || substr($birth,5,1) == "-")) {
// Deutsch
$day = substr($birth,0,2);
$month = substr($birth,3,2);
$year = substr($birth,6,4);
}
elseif(
(substr($birth,4,1) == "." || substr($birth,4,1) == "-") &&
(substr($birth,7,1) == "." || substr($birth,7,1) == "-")) {
// Englisch
$day = substr($birth,8,2);
$month = substr($birth,5,2);
$year = substr($birth,0,4);
}
else {
die (_MD_FRIENDFINDER_ERROR2);
}
/* überprüfung auf Gültigkeit: */
if($day > 31) {
die (_MD_FRIENDFINDER_ERROR3);
}
if($month > 12) {
die (_MD_FRIENDFINDER_ERROR4);
}
/* Differenz der Jahresangaben */
$alter = date("Y") - $year;
/* Berücksichtigung des Monats */
if((date("m") - $month) < 0) {
$alter--;
}
/* Berücksichtigung des Tages */
if((date("m") - $month) == 0 && (date("d") - $day) < 0) {
$alter--;
}
if($alter < 0) {
die (_MD_FRIENDFINDER_ERROR5);
}
return $alter;
}
/* ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** **
**               Hinweise zum Anwenden                **
**              ***********************               **
**                                                    **
**  Die Funktion lässt sich wie jede andere Funktion  **
**  aufrufen; Der Funktion muss ein String übergeben  **
**  werden; Der  übergebene String muss entweder im    **
**  deutschen oder im englischen Datumsformat stehen. **
**  Zurückgegeben wird das berechnete Alter;          **
**  Bsp:  $age = getage($birth);                      **
**  Hier wird das Alter einer Person berechnet die im **
**  String ($birth) angegebenen Datum geboren wurde.  **
**                                                    **
**  Fragen, Verbesserungen, Änderungsvorschläge ????  **
**                   Mail an mich!!                   **
** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** */
?>