Skip to content

EndOfAWeek

Return the last moment of day of the week, given a year and a week in the year.

Declaration

Source position: dateutil.inc line 157

  function EndOfAWeek(const AYear: Word; const AWeekOfYear: Word; 
                     const ADayOfWeek: Word) : TDateTime;
  function EndOfAWeek(const AYear: Word; const AWeekOfYear: Word)
                      : TDateTime;

Description

EndOfAWeek returns a TDateTime value with the date of the last moment (23:59:59:999) on the indicated day of the week indicated by the AYear, AWeek, ADayOfWeek values.

The default value for ADayOfWeek is 7.

See also

Name Description
EndOfAMonth Calculate a TDateTime value representing the last day of the indicated month
EndOfAWeek Return the last moment of day of the week, given a year and a week in the year.
EndOfAYear Calculate a TDateTime value representing the last day of a year
EndOfTheMonth Calculate a TDateTime value representing the last day of the month, given a day in that month.
EndOfTheWeek Calculate a TDateTime value which represents the end of a week, given a date in that week.
EndOfTheYear Calculate a TDateTime value representing the last day of a year, given a date in that year.
StartOfAMonth Return first date of month, given a year/month pair.
StartOfTheWeek Return the first day of the week, given a date.

Example

Program Example35;
{ This program demonstrates the EndOfAWeek function }
Uses SysUtils,DateUtils;
Const
  Fmt = '"Last day of this week : "dd mmmm yyyy hh:nn:ss';
  Fmt2 = '"Last-1 day of this week : "dd mmmm yyyy hh:nn:ss';
Var
  Y,W : Word;
Begin
  Y:=YearOf(Today);
  W:=WeekOf(Today);
  Writeln(FormatDateTime(Fmt,EndOfAWeek(Y,W)));
  Writeln(FormatDateTime(Fmt2,EndOfAWeek(Y,W,6)));
End.