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

See also

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.

Documentation generated on: Dec 10 2024