EndOfWeekNo Routines
Returns the End of the Week for the given WeekNo in the given year, assuming that the End of the Week is Saturday.

Unit
QESBPCSDateTime

Overloaded Variants
Function EndOfWeekNo(const WeekNo, Year: Word): TDateTime;
Function EndOfWeekNo(const WeekNo, Year: Integer): TDateTime;

Declaration
Function EndOfWeekNo(const WeekNo, Year: Word): TDateTime;

Parameters
WeekNo Week Number in given year.
Year 4 digit year such as 1999.

Category
Date/Time Arithmetic Routines
Week Based Arithmetic Routines

Implementation

function EndOfWeekNo (const WeekNo, Year: Word): TDateTime;
begin
     Result := StartOfWeekNo (WeekNo, Year) + 6;
End;

Declaration
Function EndOfWeekNo(const WeekNo, Year: Integer): TDateTime;

Implementation

function EndOfWeekNo (const WeekNo, Year: Integer): TDateTime;
begin
     Result := StartOfWeekNo (WeekNo, Year) + 6;
End;


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