[Overview][Constants][Procedures and functions][Index] |
Decode a TDateTime value in a month, week of month and day of week
Source position: dateutil.inc line 344
procedure DecodeDateMonthWeek( |
const AValue: TDateTime; |
out AYear: Word; |
out AMonth: Word; |
out AWeekOfMonth: Word; |
out ADayOfWeek: Word |
); |
AValue |
|
TDateTime to decode |
AYear |
|
Returns the year part of AValue. |
AMonth |
|
Returns the month part of AValue. |
AWeekOfMonth |
|
Returns the week of month part of AValue. |
ADayOfWeek |
|
Returns the day of week part of AValue. |
DecodeDateMonthWeek decomposes the date indication in AValue and returns the various components in AYear, AMonthAWeekOfMonth and ADayOfWeek.
|
Encodes a TDateTime value from all its parts |
|
|
Encodes a year, month, week of month and day of week to a TDateTime value |
|
|
Encode a TDateTime value from a year, week and day of week triplet |
|
|
Encodes a year and day of year to a TDateTime value |
|
|
Decode a TDateTime value in a date and time value |
|
|
Decode a TDateTime value in a week of year and day of week. |
|
|
Decode a TDateTime value in year and year of day. |
Program Example85; { This program demonstrates the DecodeDateMonthWeek function } Uses SysUtils,DateUtils; Var Y,M,Wom,Dow : Word; TS : TDateTime; Begin DecodeDateMonthWeek(Now,Y,M,WoM,DoW); TS:=EncodeDateMonthWeek(Y,M,WoM,Dow); Writeln('Today is : ',DateToStr(TS)); End.