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

[hboy]

dachte pos ist beim fehlschlag -1...
naja dann eben

Delphi-Quellcode:

function monthbystr(s: string): integer;
const months = '    JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC';
var st: string[3];
begin
  st := s[1]+s[2]+s[3];
  result := Pos(Uppercase(st),months) shr 2;
end;