Функция 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;

Недавно добавленные исходники
• Animation Loaders 1 055 • DeLiKaTeS Tetris (Тетрис) 5 989 • TDictionary Custom Sort 7 924 • Fast Watermark Sources 7 583 • 3D Designer 10 822 • Sik Screen Capture 8 163 • Patch Maker 8 349 • Айболит (remote control) 8 399 • ListBox Drag & Drop 7 259 • Доска для игры Реверси 101 519 • Графические эффекты 8 456 • Рисование по маске 7 821 • Перетаскивание изображений 6 414 • Canvas Drawing 6 800 • Рисование Луны 6 736 • Поворот изображения 5 835 • Рисование стержней 4 782 • Paint on Shape 3 479 • Генератор кроссвордов 4 500 • Головоломка Paletto 3 620 • Теорема Монжа об окружностях 4 409 • Пазл Numbrix 2 860 • Заборы и коммивояжеры 3 812 • Игра HIP 2 582 • Игра Go (Го) 2 595 • Симулятор лифта 2 975 • Программа укладки плитки 2 404 • Генератор лабиринта 3 154 • Проверка числового ввода 2 638 • HEX View 3 047