Return a day of the week, given a year, week and day in the week.
Source position: dateutil.inc line 177
function StartOfAWeek( |
const AYear: Word; |
const AWeekOfYear: Word; |
const ADayOfWeek: Word |
):TDateTime; |
const AYear: Word; |
const AWeekOfYear: Word |
):TDateTime; |
AYear |
|
Year. |
AWeekOfYear |
|
Week in the year. |
ADayOfWeek |
|
Day in the week (default 1). |
First day of the given week, in TDateTime format.
AYear |
|
Year. |
AWeekOfYear |
|
Week in the year. |
StartOfAWeek returns a TDateTime value with the date of the indicated day of the week indicated by the AYear, AWeek, ADayOfWeek values.
The default value for ADayOfWeek is 1.
|
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 Example34; { This program demonstrates the StartOfAWeek function } Uses SysUtils,DateUtils; Const Fmt = '"First day of this week : "dd mmmm yyyy hh:nn:ss'; Fmt2 = '"Second day of this week : "dd mmmm yyyy hh:nn:ss'; Var Y,W : Word; Begin Y:=YearOf(Today); W:=WeekOf(Today); Writeln(FormatDateTime(Fmt,StartOfAWeek(Y,W))); Writeln(FormatDateTime(Fmt2,StartOfAWeek(Y,W,2))); End.