Функция DateSer

Привет, я хочу в качестве совета поделиться функцией DateSer, которую я написал перед этим на VB. Данная функция весьма полезна но, к сожалению, ее нет в Delphi. Применяется она так:

DecodeDate(Date,y,m,d);
NewDate:=DateSer(y-4,m+254,d+1234);

или приблизительно так....

function DateSer(y, m, d: Integer): TDateTime;
const
  mj: array[1..12] of Integer = (31, 28, 31, 30, 31, 30, 31,
    31, 30, 31, 30, 31);
var
  add: Integer;
begin
  while (true) do
  begin
    y := y + (m - 1) div 12;
    m := (m - 1) mod 12 + 1;
    if m <= 0 then
    begin
      Inc(m, 12);
      Dec(y);
    end;
    if ((y mod 4 = 0) and
      ((y mod 100 <> 0) or (y mod 400 = 0)))
      and (m = 2) then
      add := 1 //дополнительный день в феврале
    else
      add := 0;
    if (d > 0) and (d <= (mj[m] + add)) then
      break;
    if d > 0 then
    begin
      Dec(d, mj[m] + add);
      Inc(m);
    end
    else
    begin
      Inc(d, mj[m] + add);
      Dec(m);
    end;
  end;
  Result := EncodeDate(y, m, d);
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 108 • TDictionary Custom Sort 6 185 • Fast Watermark Sources 5 986 • 3D Designer 8 874 • Sik Screen Capture 6 324 • Patch Maker 6 740 • Айболит (remote control) 6 733 • ListBox Drag & Drop 5 592 • Доска для игры Реверси 96 045 • Графические эффекты 6 947 • Рисование по маске 6 208 • Перетаскивание изображений 5 119 • Canvas Drawing 5 487 • Рисование Луны 5 194 • Поворот изображения 4 742 • Рисование стержней 3 349 • Paint on Shape 2 592 • Генератор кроссвордов 3 487 • Головоломка Paletto 2 787 • Теорема Монжа об окружностях 3 588 • Пазл Numbrix 2 358 • Заборы и коммивояжеры 3 036 • Игра HIP 1 991 • Игра Go (Го) 1 916 • Симулятор лифта 2 274 • Программа укладки плитки 1 977 • Генератор лабиринта 2 432 • Проверка числового ввода 2 110 • HEX View 2 448 • Физический маятник 2 068