Sign in Join
FPDoc Onlineexperiment

EndOfAWeek function

In unit DateUtils

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

Declaration

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

Arguments

AYear
AWeekOfYear
ADayOfWeek

Day of the week.

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

Example: ex35

pascal
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.

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.