Функция 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 (Тетрис) 3 669 • TDictionary Custom Sort 5 800 • Fast Watermark Sources 5 603 • 3D Designer 8 215 • Sik Screen Capture 5 913 • Patch Maker 6 388 • Айболит (remote control) 6 378 • ListBox Drag & Drop 5 237 • Доска для игры Реверси 94 551 • Графические эффекты 6 570 • Рисование по маске 5 643 • Перетаскивание изображений 4 759 • Canvas Drawing 5 135 • Рисование Луны 4 863 • Поворот изображения 4 411 • Рисование стержней 3 116 • Paint on Shape 2 360 • Генератор кроссвордов 3 228 • Головоломка Paletto 2 551 • Теорема Монжа об окружностях 3 328 • Пазл Numbrix 2 200 • Заборы и коммивояжеры 2 849 • Игра HIP 1 820 • Игра Go (Го) 1 740 • Симулятор лифта 2 072 • Программа укладки плитки 1 798 • Генератор лабиринта 2 240 • Проверка числового ввода 1 925 • HEX View 2 225 • Физический маятник 1 911