[Overview][Constants][Procedures and functions] Reference for unit 'dateutils' (#rtl)

TryEncodeDateDay

Encode a year and day of year to a TDateTimevalue

Declaration

Source position: dateutil.inc line 321

function TryEncodeDateDay(

  const AYear: Word;

  const ADayOfYear: Word;

  var AValue: TDateTime

):Boolean;

Arguments

AYear

  

Year

ADayOfYear

  

Day in the year

AValue

  

Encoded TDateTimevalue.

Function result

Trueif the encoding was succesful, Falseif not.

Description

TryEncodeDateDayencodes the values AYearand ADayOfYearto a date value and returns this value in AValue.

If the encoding was succcesful, Trueis returned. Falseis returned if any of the arguments is not valid.

See also

EncodeDateDay

  

Encodes a year and day of year to a DateTime value

EncodeDateTime

  

Encodes a DateTime value from all its parts

EncodeDateMonthWeek

  

Encodes a year, month, week of month and day of week to a DateTime value

EncodeDateWeek

  

Encode a TDateTimevalue from a year, week and day of week triplet

TryEncodeDateTime

  

Encode a Year, Month, Day, Hour, minute, seconds, milliseconds tuplet to a TDateTimevalue

TryEncodeDateMonthWeek

  

Encode a year, month, week of month and day of week to a TDateTimevalue

TryEncodeDateWeek

  

Encode a year, week and day of week triplet to a TDateTimevalue

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.