Decode a TDateTime to a year,month,day triplet.
Source position: datih.inc line 124
procedure DecodeDate( |
Date: TDateTime; |
out Year: Word; |
out Month: Word; |
out Day: Word |
); |
DecodeDate decodes the Year, Month and Day stored in Date, and returns them in the Year, Month and Day variables.
None.
|
Encode a Year,Month,Day to a TDateTime value. |
|
|
Decode a TDateTime to a hour,minute,second,millisec quartet. |
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.