EndOfISOWeek Function
Returns the End of the week containing given Date/Time, assumes that the End of the Week is Sunday according to ISO-8601 - Time portion preserved.

Unit
QESBPCSDateTime

Declaration
Function EndOfISOWeek(const DT: TDateTime): TDateTime;

Parameters
DT Date to process.

Category
Date/Time Arithmetic Routines
Week Based Arithmetic Routines

Implementation

function EndOfISOWeek (const DT: TDateTime): TDateTime;
begin
     Result := DT - ISODayOfWeek (DT) + 7;
End;


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