TryEncodeDateDay¶

Encode a year and day of year to a TDateTime value.

Declaration¶

Source position: dateutil.inc line 357

function TryEncodeDateDay(const AYear: Word; const ADayOfYear: Word; 
                         out AValue: TDateTime) : Boolean;

Arguments¶

Name	Description
AYear	Year.
ADayOfYear	Day in the year.
AValue	Encoded TDateTime value.

Function result¶

True if the encoding was successful, False if not.

Description¶

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.

See also¶

Name	Description
EncodeDateDay	Encodes a year and day of year to a TDateTime value.
EncodeDateTime	Encodes a TDateTime value from all its parts.
EncodeDateMonthWeek	Encodes a year, month, week of month and day of week to a TDateTime value.
EncodeDateWeek	Encode a TDateTime value from a year, week and day of week triplet.
TryEncodeDateTime	Encode a Year, Month, Day, Hour, minute, seconds, milliseconds tuplet to a TDateTime value.
TryEncodeDateMonthWeek	Encode a year, month, week of month and day of week to a TDateTime value.
TryEncodeDateWeek	Encode a year, week and day of week triplet to a TDateTime value.

Example¶

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.