AgeNowInMonths Function |
Unit
QESBPCSDateTime
Declaration
Function AgeNowInMonths(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 Months at the current Date.
Category
Date/Time Arithmetic Routines
Month Based Arithmetic RoutinesImplementation
function AgeNowInMonths (const DOB: TDateTime): Integer; begin Result := AgeAtDateInMonths (DOB, Date); End; |
|