SubtractWeeks Function
Subtracts a Floating Point amount of Weeks from a Given Date/Time.

Unit
QESBPCSDateTime

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

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

Category
Date/Time Arithmetic Routines
Week Based Arithmetic Routines

Implementation

function SubtractWeeks (const DT: TDateTime; const Weeks: Extended): TDateTime;
begin
     Result := AddWeeks (DT, -1 * Weeks);
End;


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