TryEncodeDateWeek¶

Encode a year, week and day of week triplet to a TDateTime value.

Declaration¶

Source position: dateutil.inc line 348

function TryEncodeDateWeek(const AYear: Word; const AWeekOfYear: Word; 
                          out AValue: TDateTime; const ADayOfWeek: Word)
                           : Boolean;

function TryEncodeDateWeek(const AYear: Word; const AWeekOfYear: Word; 
                          out AValue: TDateTime) : Boolean;

Description¶

TryEncodeDateWeek encodes the values AYear, AWeekOfYear and ADayOfWeek 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
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.
EncodeDateTime	Encodes a TDateTime value from all its parts.
EncodeDateDay	Encodes a year and day of year to a TDateTime value.
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.
TryEncodeDateDay	Encode a year and day of year to a TDateTime value.

Example¶

Program Example82;

{ This program demonstrates the TryEncodeDateWeek function }

Uses SysUtils,DateUtils;

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

Begin
  DecodeDateWeek(Now,Y,W,Dow);
  If TryEncodeDateWeek(Y,W,TS,Dow) then
    Writeln('Today is : ',DateToStr(TS))
  else
    Writeln('Invalid date/week indication');
End.