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

[000012]