AgeNow Function
Returns the current Age (in years) of a "person" given their Date of Birth (DOB) using the System Date.

Unit
QESBPCSDateTime

Declaration
Function AgeNow(const DOB: TDateTime): Integer;

Description
If DOB occurs after the System Date then -1 is returned.

Parameters
DOB Date of Birth.

Returns
Age in Integral Years at the current Date.

Category
Date/Time Arithmetic Routines

Implementation

function AgeNow (const DOB: TDateTime): Integer;
begin
     Result := AgeAtDate (DOB, Date);
End;


HTML generated by Time2HELP
http://www.time2help.com