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