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

[hboy]

Delphi-Quellcode:

function monthbystr(s: string): integer;
const
  months = 'JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC';
var
  position: integer;
begin
  position:= Pos(Uppercase(s),months);
  if position = -1 then
    result := -1
  else
    result := position shr 2;
end;

und es is immer noch kurz