DecodeDateWeek¶

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

Declaration¶

Source position: dateutil.inc line 347

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

Arguments¶

Name	Description
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¶

Name	Description
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.