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

[hboy]

bzw

Delphi-Quellcode:

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