[Overview][Constants][Procedures and functions][Index] |
Decode a TDateTime value in year and year of day.
Source position: dateutil.inc line 336
procedure DecodeDateDay( |
const AValue: TDateTime; |
out AYear: Word; |
out ADayOfYear: Word |
); |
AValue |
|
TDateTime to decode |
AYear |
|
Returns the year part of AValue |
ADayOfYear |
|
Returns the day-of-year part of AValue |
DecodeDateDay decomposes the date indication in AValue and returns the various components in AYear, ADayOfYear.
|
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 a month, week of month and day of week |
Program Example83; { This program demonstrates the DecodeDateDay function } Uses SysUtils,DateUtils; Var Y,DoY : Word; TS : TDateTime; Begin DecodeDateDay(Now,Y,DoY); TS:=EncodeDateDay(Y,DoY); Writeln('Today is : ',DateToStr(TS)); End.