DecodeDateDay procedure
Decode a TDateTime value in year and year of day.
Declaration
procedure DecodeDateDay(const AValue: TDateTime; out AYear: Word;
out ADayOfYear: Word)Arguments
AValue | TDateTime to decode. |
AYear | Returns the year part of
|
ADayOfYear | Returns the day-of-year part of
|
Description
DecodeDateDay decomposes the date indication in
AValue and returns the various components in
AYear,
ADayOfYear.See also
- EncodeDateTime
- EncodeDateMonthWeek
- EncodeDateWeek
- EncodeDateDay
- DecodeDateTime
- DecodeDateWeek
- DecodeDateMonthWeek
Example: ex83
Program Example83;
{ This program demonstrates the DecodeDateDay function }
Uses SysUtils,DateUtils;
Var
Y,DoY : Word;
TS : TDateTime;
Begin
DecodeDateDay(Now,Y,DoY);
TS:=EncodeDateDay(Y,DoY);
Writeln('Today is : ',DateToStr(TS));
End.An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.