Encode a year and day of year to a TDateTime value.
Source position: dateutil.inc line 346
function TryEncodeDateDay( |
const AYear: Word; |
const ADayOfYear: Word; |
out AValue: TDateTime |
):Boolean; |
AYear |
|
Year. |
ADayOfYear |
|
Day in the year. |
AValue |
|
Encoded TDateTime value. |
True if the encoding was successful, False if not.
TryEncodeDateDay encodes the values AYear and ADayOfYear to a date value and returns this value in AValue.
If the encoding was successful, True is returned. False is returned if any of the arguments is not valid.
|
Encodes a year and day of year to a TDateTime value. |
|
|
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. |
|
|
Encode a Year, Month, Day, Hour, minute, seconds, milliseconds tuplet to a TDateTime value. |
|
|
Encode a year, month, week of month and day of week to a TDateTime value. |
|
|
Encode a year, week and day of week triplet to a TDateTime value. |
Program Example84; { This program demonstrates the TryEncodeDateDay function } Uses SysUtils,DateUtils; Var Y,DoY : Word; TS : TDateTime; Begin DecodeDateDay(Now,Y,DoY); If TryEncodeDateDay(Y,DoY,TS) then Writeln('Today is : ',DateToStr(TS)) else Writeln('Wrong year/day of year indication'); End.