AddWeeks Function
Adds a Floating Point amount of Weeks to a Given Date/Time.

Unit
QESBPCSDateTime

Declaration
Function AddWeeks(const DT: TDateTime; const Weeks: Extended): TDateTime;

Parameters
DT Date/Time to process.
Weeks Number of Weeks to Add - can be negative.

Category
Date/Time Arithmetic Routines
Week Based Arithmetic Routines

Implementation

function AddWeeks (const DT: TDateTime; const Weeks: Extended): TDateTime;
begin
     Result := DT + Weeks * 7;
End;


HTML generated by Time2HELP
http://www.time2help.com