TryEncodeDateWeek

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

Declaration

Source position: dateutil.inc line 315

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;

Arguments

`AYear`		Year
`AWeekOfYear`		Week in the year
`AValue`		Encoded `TDateTime` value
`ADayOfWeek`		Day of the week (default 1).

Function result

True if the encoding was succeful, False otherwise.

Arguments

`AYear`		Year
`AWeekOfYear`		Week in the year
`AValue`		Encoded `TDateTime` value

Description

TryEncodeDateWeek encodes the values AYear, AWeekOfYear and ADayOfWeek to a date value and returns this value in AValue.

If the encoding was succcesful, True is returned. False is returned if any of the arguments is not valid.

EncodeDateMonthWeek		Encodes a year, month, week of month and day of week to a DateTime value
EncodeDateWeek		Encode a `TDateTime` value from a year, week and day of week triplet
EncodeDateTime		Encodes a DateTime value from all its parts
EncodeDateDay		Encodes a year and day of year to a DateTime 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.

TryEncodeDateWeek

Declaration

Arguments

Function result

Arguments

Description

See also

Example