[Overview][Constants][Procedures and functions][Index] |
Return the last moment of day of the week, given a year and a week in the year.
Source position: dateutil.inc line 170
function EndOfAWeek( |
const AYear: Word; |
const AWeekOfYear: Word; |
const ADayOfWeek: Word |
):TDateTime; |
const AYear: Word; |
const AWeekOfYear: Word |
):TDateTime; |
ADayOfWeek |
|
Day of the week |
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.
|
Return the first day of the week, given a date. |
|
|
Calculate a TDateTime value which represents the end of a week, given a date in that week. |
|
|
Return the last moment of day of the week, given a year and a week in the year. |
|
|
Return first date of month, given a year/month pair. |
|
|
Calculate a TDateTime value representing the last day of a year, given a date in that year. |
|
|
Calculate a TDateTime value representing the last day of a year |
|
|
Calculate a TDateTime value representing the last day of the month, given a day in that month. |
|
|
Calculate a TDateTime value representing the last day of the indicated month |
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.