[Overview][Constants][Procedures and functions][Index] |
Decode a TDateTime value in year, month, day of week parts
Source position: dateutil.inc line 393
procedure DecodeDayOfWeekInMonth( |
const AValue: TDateTime; |
out AYear: Word; |
out AMonth: Word; |
out ANthDayOfWeek: Word; |
out ADayOfWeek: Word |
); |
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. |
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.)
|
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 TDateTime value |
|
|
Returns the day of the week. |
|
|
Encodes a year, month, week, day of week specification to a TDateTime value |
|
|
Encode a year, month, week, day of week triplet to a TDateTime value |
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.