Wie wäre es so...
Delphi-Quellcode:
uses DateUtils;
:
:
function Jahrestag(Jahr, Tag:integer):TDate;
begin
Result:=IncDay(StrToDate('1.1.' + IntToStr(Jahr)), Tag-1);
end;
Aufruf...
ShowMessage(DateToStr(Jahrestag(2008, 79)));
Edit: Ok, die Funktion
EncodeDateDay macht ja genau das selbe.
Aufruf...
ShowMessage(DateToStr(EncodeDateDay(2008, 79)));
Gruss
Thorsten