| AgeAtDateInWeeks Function |
Unit
QESBPCSDateTime
Declaration
Function AgeAtDateInWeeks(const DOB, DT: TDateTime): Integer;
Description
If DT occurs before DB then -1 is returned. Routine donated by David Gobbett.
| Parameters |
| DOB | Date of Birth. |
| DT | Date in question. |
Returns
Age in Integral Weeks at the Date in question.
Category
Date/Time Arithmetic Routines
Week Based Arithmetic RoutinesImplementation
function AgeAtDateInWeeks (const DOB, DT: TDateTime): Integer;
begin
if DT < DOB then
Result := -1
else
begin
Result := Trunc (DT - DOB) div 7;
end; {else}
End; |
|
|