Функция 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 288 • TDictionary Custom Sort 6 336 • Fast Watermark Sources 6 126 • 3D Designer 9 057 • Sik Screen Capture 6 447 • Patch Maker 6 865 • Айболит (remote control) 6 848 • ListBox Drag & Drop 5 724 • Доска для игры Реверси 96 579 • Графические эффекты 7 067 • Рисование по маске 6 365 • Перетаскивание изображений 5 236 • Canvas Drawing 5 612 • Рисование Луны 5 309 • Поворот изображения 4 859 • Рисование стержней 3 448 • Paint on Shape 2 707 • Генератор кроссвордов 3 584 • Головоломка Paletto 2 875 • Теорема Монжа об окружностях 3 684 • Пазл Numbrix 2 415 • Заборы и коммивояжеры 3 096 • Игра HIP 2 057 • Игра Go (Го) 1 982 • Симулятор лифта 2 345 • Программа укладки плитки 2 045 • Генератор лабиринта 2 504 • Проверка числового ввода 2 192 • HEX View 2 514 • Физический маятник 2 133