RecodeDateTime¶

Replace selected parts of a TDateTime value with other values.

Declaration¶

Source position: dateutil.inc line 387

function RecodeDateTime(const AValue: TDateTime; const AYear: Word; 
                       const AMonth: Word; const ADay: Word; 
                       const AHour: Word; const AMinute: Word; 
                       const ASecond: Word; const AMilliSecond: Word)
                        : TDateTime;

Arguments¶

Name	Description
AValue	Date/time to recode.
AYear	New value for year part.
AMonth	New value for month part.
ADay	New value for day part.
AHour	New value for hour part.
AMinute	New value for minute part.
ASecond	New value for second part.
AMilliSecond	New value for millisecond part.

Function result¶

AValue with replaced parts.

Description¶

RecodeDateTime replaces selected parts of the timestamp AValue with the date/time values specified in AYear, AMonth, ADay, AHour, AMinute, ASecond and AMilliSecond. If any of these values equals the predefined constant RecodeLeaveFieldAsIs, then the corresponding part of the date/time stamp is left untouched.

Errors¶

If one of the values AYear, AMonth, ADay, AHour, AMinute, ASecondAMilliSecond is not within a valid range (RecodeLeaveFieldAsIs excepted) 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.
RecodeMilliSecond	Replace milliseconds part of a TDateTime value with another millisecond.
RecodeDate	Replace date part of a TDateTime value with another date.
RecodeTime	Replace time part of a TDateTime value with another time.
TryRecodeDateTime	Replace selected parts of a TDateTime value with other values.

Example¶

Program Example96;

{ This program demonstrates the RecodeDateTime function }

Uses SysUtils,DateUtils;

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

Var
  S : AnsiString;
  D : TDateTime ;

Begin
  D:=Now;
  D:=RecodeDateTime(D,2000,2,RecodeLeaveFieldAsIs,0,0,0,0);
  S:=FormatDateTime(Fmt,D);
  Writeln('This moment in februari 2000 : ',S);
End.