SubtractFortnights Function
Subtracts a Floating Point amount of Fortnights from a Given Date/Time.

Unit
QESBPCSDateTime

Declaration
Function SubtractFortnights(const DT: TDateTime; const FNights: Extended): TDateTime;

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

Category
Date/Time Arithmetic Routines

Implementation

function SubtractFortnights (const DT: TDateTime; const FNights: Extended): TDateTime;
begin
     Result := AddWeeks (DT, FNights * -2);
End;


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