EncodeDate
Encode a Year,Month,Day to a TDateTime value.
Declaration
Source position: datih.inc line 119
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
| Name | Description |
|---|---|
| DecodeDate | Decode a TDateTime to a year,month,day triplet |
| EncodeTime | Encode a Hour,Min,Sec,millisec to a TDateTime value. |
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.