Decode a TDateTime value in year and year of day.
Source position: dateutil.inc line 345
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.