| AgeNowInWeeks Function | 
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 RoutinesImplementation
 
| function AgeNowInWeeks (const DOB: TDateTime): Integer;
begin
     Result := AgeAtDateInWeeks (DOB, Date);
End; | 
|  |