| EndOfWeek Function |
Unit
QESBPCSDateTime
Declaration
Function EndOfWeek(const DT: TDateTime): TDateTime;
| Parameters |
| DT | Date/Time to process. |
Category
Date/Time Arithmetic Routines
Week Based Arithmetic RoutinesImplementation
function EndOfWeek (const DT: TDateTime): TDateTime;
begin
Result := DT - DayOfWeek (DT) + 7;
End; |
|
|