Sign in Join
FPDoc Onlineexperiment

EncodeDate function

In unit sysutils

Encode a Year,Month,Day to a TDateTime value.

Declaration

pascal
function EncodeDate(Year: Word; Month: Word; Day: Word): TDateTime

Description

EncodeDate encodes the Year, Month and Day variables to a date in TDateTime format. It does the opposite of the DecodeDate procedure.

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
must be between 1 and 31.

Errors

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

See also

Example: ex11

pascal
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.

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.