Unit 'DateUtils'	Package
[Overview][Constants][Classes][Procedures and functions][Index]	[#rtl]

RecodeDateTime

Replace selected parts of a TDateTime value with other values.

Declaration

Source position: dateutil.inc line 376

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

`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.

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.