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';
begin
  result := Pos(Uppercase(s),months) shr 2;
end;

sag ich ma.