[Overview][Constants][Procedures and functions] Reference for unit 'dateutils' (#rtl)

RecodeYear

Replace year part of a TDateTimevalue with another year.

Declaration

Source position: dateutil.inc line 335

function RecodeYear(

  const AValue: TDateTime;

  const AYear: Word

):TDateTime;

Arguments

AValue

  

Date to recode

AYear

  

Year to replace in AValue

Function result

AValuewith replaced year.

Description

RecodeYearreplaces the year part of the timestamp AValuewith AYear. All other parts of the date/time stamp are left untouched.

Errors

If the AYearvalue is not within a valid range (1..9999) then an EConvertErrorexception is raised.

See also

RecodeMonth

  

Replace month part of a TDateTimevalue with another month.

RecodeDay

  

Replace day part of a TDateTimevalue with another day.

RecodeHour

  

Replace hours part of a TDateTimevalue with another hour.

RecodeMinute

  

Replace minutse part of a TDateTimevalue with another minute.

RecodeSecond

  

Replace seconds part of a TDateTimevalue with another second.

RecodeMilliSecond

  

Replace milliseconds part of a TDateTimevalue with another millisecond.

RecodeDate

  

Replace date part of a TDateTimevalue with another date.

RecodeTime

  

Replace time part of a TDateTimevalue with another time.

RecodeDateTime

  

Replace selected parts of a TDateTimevalue with other values

Example

Program Example87;

{ This program demonstrates the RecodeYear function }

Uses SysUtils,DateUtils;

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

Var
  S : AnsiString;

Begin
  S:=FormatDateTime(Fmt,RecodeYear(Now,1999));
  Writeln('This moment in 1999 : ',S);
End.