AgeAtDate Function |
Unit
QESBPCSDateTime
Declaration
Function AgeAtDate(const DOB, DT: TDateTime): Integer;
Description
If DT occurs before DB then -1 is returned.
Parameters |
DOB | Date of Birth. |
DT | Date in question. |
Returns
Age in Integral Years at the Date in question.
Category
Date/Time Arithmetic Routines
Year Based Arithmetic RoutinesImplementation
function AgeAtDate (const DOB, DT: TDateTime): Integer; var D1, M1, Y1, D2, M2, Y2: Integer; begin if DT < DOB then Result := -1 else begin OptDecodeDateI (DOB, Y1, M1, D1); OptDecodeDateI (DT, Y2, M2, D2); Result := Y2 - Y1; if (M2 < M1) or ((M2 = M1) and (D2 < D1)) then Dec (Result); end; End; |
|