TryRecodeDateTime

Replace selected parts of a TDateTime value with other values

Declaration

Source position: dateutil.inc line 355

  function TryRecodeDateTime(const AValue: TDateTime; const AYear: Word; 
                            const AMonth: Word; const ADay: Word; 
                            const AHour: Word; const AMinute: Word; 
                            const ASecond: Word; 
                            const AMilliSecond: Word; 
                            out AResult: TDateTime) : Boolean;

Description

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

The resulting date/time is returned in AValue.

The function returns True if the encoding was successful. It returns False if one of the values AYear, AMonth, ADay, AHour, AMinute, ASecondAMilliSecond is not within a valid range.

See also

Name	Description
RecodeDate	Replace date part of a TDateTime value with another date.
RecodeDateTime	Replace selected parts of a TDateTime value with other values
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.

Example

Program Example97;
{ This program demonstrates the TryRecodeDateTime function }
Uses SysUtils,DateUtils;
Const
  Fmt = 'dddd dd mmmm yyyy hh:nn:ss';
Var
  S : AnsiString;
  D : TDateTime ;
Begin
  If TryRecodeDateTime(Now,2000,2,RecodeLeaveFieldAsIs,0,0,0,0,D) then
    begin
    S:=FormatDateTime(Fmt,D);
    Writeln('This moment in februari 2000 : ',S);
    end
  else
    Writeln('This moment did/does not exist in februari 2000');
End.