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;