| SubtractFortnights Function | 
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 RoutinesImplementation
 
| function SubtractFortnights (const DT: TDateTime; const FNights: Extended): TDateTime;
begin
     Result := AddWeeks (DT, FNights * -2);
End; | 
|  |