Delphi Programming RTL Reference|By Category|Alphabetically|By Unit
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);;
Separates Year, Month, and Day values from a TDateTime value.
If the given TDateTime value is less than or equal to zero, the year, month, and day return parameters are all set to zero.
var Y, M, D: Word;
DecodeDate(Date, Y, M, D);
if Y = 2000 then
ShowMessage('You''re in a "wrong" century!);
|
DateOf
EncodeDate
DecodeTime
|
Free Delphi code snippet inside every Delphi Newsletter! |
|
|
|
Got some code to share? Got a question? Need some help? |
|
|
