[Overview][Constants][Types][Classes][Procedures and functions][Variables] Reference for unit 'sysutils' (#rtl)

EncodeDate

Encode a Year,Month,Day to a TDateTimevalue.

Declaration

Source position: datih.inc line 101

function EncodeDate(

  Year: Word;

  Month: Word;

  Day: Word

):TDateTime;

Description

EncodeDateencodes the Year, Monthand Dayvariables to a date in TDateTimeformat. It does the opposite of the DecodeDateprocedure.

The parameters must lie withing valid ranges (boundaries included):

Year
must be between 1 and 9999.
Month
must be within the range 1-12.
Day
msut be between 1 and 31.

Errors

In case one of the parameters is out of it's valid range, an EConvertErrorexception is raised.

See also

EncodeTime

  

Encode a Hour,Min,Sec,millisec to a TDateTimevalue.

DecodeDate

  

Decode a TDateTimeto a year,month,day triplet

Example

Program Example11;

{ This program demonstrates the EncodeDate function }

Uses sysutils;

Var YY,MM,DD : Word;

Begin
  DecodeDate (Date,YY,MM,DD);
  WriteLn ('Today is : ',FormatDateTime ('dd mmmm yyyy',EnCodeDate(YY,Mm,Dd)));
End.