RecodeDate Delphi - Okolokompa

RecodeDate

Модуль: DateUtils
function RecodeDate(const AValue: TDateTime; const AYear, AMonth, ADay: Word): TDateTime;

Функция преобразует значение даты, сохраненное в параметре AValue, в значения, передаваемые в параметрах AYear (год), AMonth (месяц), ADay (день). Параметр AYear должен быть числом от 1 до 9999; month — число от 1 до 12, тогда как AMonth — правильное число для дня месяца (в зависимости от параметра AMonth ; если AMonth = 2, ADay не может равняться 31).

пример:

program Foo;

{$APPTYPE CONSOLE}

uses

DateUtils, SysUtils;

var

ANow : TDateTime;

begin

ANow := Now;

Writeln('Знач: ', DateTimeToStr(RecodeDate(ANow, 2007, 12, 12)));

Readln;

end.

Если заданы неправильные значения параметров, функция выполнит исключение EConvertError.