RecodeDate¶

Replace date part of a TDateTime value with another date.

Declaration¶

Source position: dateutil.inc line 385

function RecodeDate(const AValue: TDateTime; const AYear: Word; 
                   const AMonth: Word; const ADay: Word) : TDateTime;

Arguments¶

Name	Description
AValue	Date/time to recode.
AYear	Year to replace in AValue.
AMonth	Month to replace in AValue.
ADay	Day to replace in AValue.

Function result¶

AValue with replaced date.

Description¶

RecodeDate replaces the date part of the timestamp AValue with the date specified in AYear, AMonth, ADay. All other parts (the time part) of the date/time stamp are left untouched.

Errors¶

If one of the AYear, AMonth, ADay values is not within a valid range then an EConvertError exception is raised.

See also¶

Name	Description
RecodeYear	Replace year part of a TDateTime value with another year.
RecodeMonth	Replace month part of a TDateTime value with another month.
RecodeDay	Replace day part of a TDateTime value with another day.
RecodeHour	Replace hours part of a TDateTime value with another hour.
RecodeMinute	Replace minutes part of a TDateTime value with another minute.
RecodeSecond	Replace seconds part of a TDateTime value with another second.
RecodeDate	Replace date part of a TDateTime value with another date.
RecodeTime	Replace time part of a TDateTime value with another time.
RecodeDateTime	Replace selected parts of a TDateTime value with other values.

Example¶

Program Example94;

{ This program demonstrates the RecodeDate function }

Uses SysUtils,DateUtils;

Const
  Fmt = 'dddd dd mmmm yyyy hh:nn:ss';

Var
  S : AnsiString;

Begin
  S:=FormatDateTime(Fmt,RecodeDate(Now,2001,1,1));
  Writeln('This moment on the first of the millenium : ',S);
End.