DecodeDate
Decode a TDateTime to a year,month,day triplet
Declaration
Source position: datih.inc line 122
procedure DecodeDate(Date: TDateTime; out Year: Word; out Month: Word;
out Day: Word);
Description
DecodeDate decodes the Year, Month and Day stored in Date, and returns them in the Year, Month and Day variables.
Errors
None.
See also
| Name | Description |
|---|---|
| DecodeTime | Decode a TDateTime to a hour,minute,second,millisec quartet |
| EncodeDate | Encode a Year,Month,Day to a TDateTime value. |
Example
Program Example9;
{ This program demonstrates the DecodeDate function }
Uses sysutils;
Var YY,MM,DD : Word;
Begin
DecodeDate(Date,YY,MM,DD);
Writeln (Format ('Today is %d/%d/%d',[dd,mm,yy]));
End.