Monatskürzel "Jan".."Dec" in 01..12 umwandeln

[negaH]

Delphi-Quellcode:

function IndexOfMonth(const Name: String): Integer;
begin
  Result := Pos('.' + AnsiUpperCase(Name) + '.', '.JAN.FEB.MAR.APR.MAY.JUN.JUL.AUG.SEP.OCT.NOV.DEC.');
  if Result > 0 then Result := (Result -1) div 4 +1;
end;

Gruß Hagen