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

# DecodeDateWeek

Decode a TDateTime value in a week of year and day of week.

## Declaration

Source position: dateutil.inc line 327

`procedure DecodeDateWeek(`
`const AValue: TDateTime;`
`out AYear: Word;`
`out AWeekOfYear: Word;`
`out ADayOfWeek: Word`
`);`

## Arguments

`AValue` |  | TDateTime to decode
`AYear` |  | Returns the year part of AValue.
`AWeekOfYear` |  | Returns the week of year part of AValue.
`ADayOfWeek` |  | Returns the day of week part of AValue.

## Description

DecodeDateWeek decomposes the date indication in AValue and returns the various components in AYear, AWeekOfYear, ADayOfWeek.

## 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
DecodeDateDay |  | Decode a TDateTime value in year and year of day.
DecodeDateMonthWeek |  | Decode a TDateTime value in a month, week of month and day of week

## Example

    Program Example81;

    { This program demonstrates the DecodeDateWeek function }

    Uses SysUtils,DateUtils;

    Var
      Y,W,Dow : Word;
      TS : TDateTime;

    Begin
      DecodeDateWeek(Now,Y,W,Dow);
      TS:=EncodeDateWeek(Y,W,Dow);
      Writeln('Today is : ',DateToStr(TS));
    End.

Documentation generated on: May 14 2021