[Overview][Constants][Procedures and functions] |
Encode a year, month, week, day of week triplet to a TDateTimevalue
Source position: dateutil.inc line 369
function TryEncodeDayOfWeekInMonth( |
const AYear: Word; |
const AMonth: Word; |
const ANthDayOfWeek: Word; |
const ADayOfWeek: Word; |
var AValue: TDateTime |
):Boolean; |
AYear |
|
Year |
AMonth |
|
Month in year |
ANthDayOfWeek |
|
Day of week occurrence |
ADayOfWeek |
|
Day of week |
AValue |
|
Resulting TDateTime value |
Trueif the encoding was succesful, Falseif not.
EncodeDayOfWeekInMonthencodes AYear, AMonth, ADayOfweekand ANthDayOfweekto a valid date stamp and returns the result in AValue.
ANthDayOfweekis the N-th time that this weekday occurs in the month, e.g. the third saturday of the month.
The function returns Trueif the encoding was succesful, Falseif any of the values is not in range.
|
Calculate which occurrence of weekday in the month a given day represents |
|
|
Encodes a year, month, week of month and day of week to a DateTime value |
|
|
Returns the day of the week. |
|
|
Decode a DateTime value in year, month, day of week parts |
|
|
Encodes a year, month, week, day of week specification to a TDateTimevalue |
Program Example105; { This program demonstrates the DecodeDayOfWeekInMonth function } Uses SysUtils,DateUtils; Var Y,M,NDoW,DoW : Word; D : TDateTime; Begin DecodeDayOfWeekInMonth(Date,Y,M,NDoW,DoW); If TryEncodeDayOfWeekInMonth(Y,M,NDoW,DoW,D) then begin Write(DateToStr(D),' is the ',NDow,'-th '); Writeln(formatdateTime('dddd',D),' of the month.'); end else Writeln('Invalid year/month/NthDayOfweek combination'); End.