Ein Gutes Neues Jahr für alle.
Nur für den Fall, dass Heiko es nicht zukaufen möchte:
Delphi-Quellcode:
function MonthOf(wYear, wDay: Word): Word;
begin
Result := DateUtils.MonthOf(StartOfAYear(wYear) + Pred(wDay));
end;
Getippt und nicht getestet.
Grüße vom marabu