RecodeDateTime

Replace selected parts of a TDateTime value with other values

Declaration

Source position: dateutil.inc line 354

  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;

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
RecodeDate Replace date part of a TDateTime value with another date.
RecodeDay Replace day part of a TDateTime value with another day.
RecodeHour Replace hours part of a TDateTime value with another hour.
RecodeMilliSecond Replace milliseconds part of a TDateTime value with another millisecond.
RecodeMinute Replace minutes part of a TDateTime value with another minute.
RecodeMonth Replace month part of a TDateTime value with another month.
RecodeSecond Replace seconds part of a TDateTime value with another second.
RecodeTime Replace time part of a TDateTime value with another time.
RecodeYear Replace year part of a TDateTime value with another year.
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.