Skip to content

TryEncodeDateMonthWeek

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

Declaration

Source position: dateutil.inc line 332

  function TryEncodeDateMonthWeek(const AYear: Word; const AMonth: Word; 
                                 const AWeekOfMonth: Word; 
                                 const ADayOfWeek: Word; 
                                 out AValue: TDateTime) : Boolean;

Description

TryEncodeDateTime encodes the values AYearAMonth, WeekOfMonth,ADayOfWeek, to a date value and returns this value in AValue.

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

See also

Name Description
DecodeDateMonthWeek Decode a TDateTime value in a month, week of month and day of week
EncodeDateDay Encodes a year and day of year to a TDateTime value
EncodeDateMonthWeek Encodes a year, month, week of month and day of week to a TDateTime value
EncodeDateTime Encodes a TDateTime value from all its parts
EncodeDateWeek Encode a TDateTime value from a year, week and day of week triplet
NthDayOfWeek Calculate which occurrence of weekday in the month a given day represents
TryEncodeDateDay Encode 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
TryEncodeDateWeek Encode a year, week and day of week triplet to a TDateTime value

Example

Program Example86;
{ This program demonstrates the TryEncodeDateMonthWeek function }
Uses SysUtils,DateUtils;
Var
  Y,M,Wom,Dow : Word;
  TS : TDateTime;
Begin
  DecodeDateMonthWeek(Now,Y,M,WoM,DoW);
  If TryEncodeDateMonthWeek(Y,M,WoM,Dow,TS) then
    Writeln('Today is : ',DateToStr(TS))
  else
    Writeln('Invalid year/month/week/dow indication');
End.