Unit 'DateUtils'	Package
[Overview][Constants][Classes][Procedures and functions][Index]	[#rtl]

DecodeDayOfWeekInMonth

Decode a TDateTime value in year, month, day of week parts.

Declaration

Source position: dateutil.inc line 402

procedure DecodeDayOfWeekInMonth(

const AValue: TDateTime;

out AYear: Word;

out AMonth: Word;

out ANthDayOfWeek: Word;

out ADayOfWeek: Word

);

Arguments

`AValue`		TDateTime to decode.
`AYear`		Returns the year part of `AValue`.
`AMonth`		Returns the month part of `AValue`.
`ANthDayOfWeek`		Returns which `ADayofWeek` of `AValue`.
`ADayOfWeek`		Returns the day of week part of `AValue`.

Description

DecodeDayOfWeekInMonth decodes the date AValue in a AYear, AMonth, ADayOfweek and ANthDayOfweek. (This is the N-th time that this weekday occurs in the month, e.g. the third Saturday of the month.)

NthDayOfWeek		Calculate which occurrence of weekday in the month a given day represents.
EncodeDateMonthWeek		Encodes a year, month, week of month and day of week to a TDateTime value.
#rtl.sysutils.DayOfWeek		Returns the day of the week.
EncodeDayOfWeekInMonth		Encodes a year, month, week, day of week specification to a `TDateTime` value.
TryEncodeDayOfWeekInMonth		Encode a year, month, week, day of week triplet to a `TDateTime` value.

Example

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);
  D:=EncodeDayOfWeekInMonth(Y,M,NDoW,DoW);
  Write(DateToStr(D),' is the ',NDow,'-th ');
  Writeln(formatdateTime('dddd',D),' of the month.');
End.

DecodeDayOfWeekInMonth

Declaration

Arguments

Description

See also

Example