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

Unit
QESBPCSDateTime

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

Description
If DOB occurs after the System Date then -1 is returned. Routine donated by David Gobbett.

Parameters
DOB Date of Birth.

Returns
Age in Integral Weeks at the current Date.

Category
Date/Time Arithmetic Routines
Week Based Arithmetic Routines

Implementation

function AgeNowInWeeks (const DOB: TDateTime): Integer;
begin
     Result := AgeAtDateInWeeks (DOB, Date);
End;


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