[Overview][Constants][Procedures and functions][Index] | Reference for unit 'DateUtils' (#rtl)

# DecodeDateDay

Decode a TDateTime value in year and year of day.

## Declaration

Source position: dateutil.inc line 336

`procedure DecodeDateDay(`
`const AValue: TDateTime;`
`out AYear: Word;`
`out ADayOfYear: Word`
`);`

## Arguments

`AValue` |  | TDateTime to decode
`AYear` |  | Returns the year part of AValue
`ADayOfYear` |  | Returns the day-of-year part of AValue

## Description

DecodeDateDay decomposes the date indication in AValue and returns the various components in AYear, ADayOfYear.

## See also

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
EncodeDateDay |  | Encodes a year and day of year to a TDateTime value
DecodeDateTime |  | Decode a TDateTime value in a date and time value
DecodeDateWeek |  | Decode a TDateTime value in a week of year and day of week.
DecodeDateMonthWeek |  | Decode a TDateTime value in a month, week of month and day of week

## Example

    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.

Documentation generated on: May 14 2021