RecodeYear function
Replace year part of a
TDateTime value with another year.
Declaration
function RecodeYear(const AValue: TDateTime; const AYear: Word)
: TDateTimeArguments
AValue | Date to recode. |
AYear | Year to replace in
|
Function result
AValue with replaced year.Description
RecodeYear replaces the year part of the timestamp
AValue
with
AYear. All other parts of the date/time stamp are left untouched.Errors
If the
AYear value is not within a valid range (1..9999) then
an
EConvertError exception is raised.
See also
- RecodeMonth
- RecodeDay
- RecodeHour
- RecodeMinute
- RecodeSecond
- RecodeMilliSecond
- RecodeDate
- RecodeTime
- RecodeDateTime
Example: ex87
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.An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.