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

[Stanlay Hanks]

Oder einfach (was heißt einfach, eigentlich zu umständlich), aber der Vollständigkeit halber:

Delphi-Quellcode:

function TForm1.MonthToNumber(Str: String): Integer;
begin
  IF Str = 'Jan' THEN result := 1 ELSE
  IF Str = 'Feb' THEN result := 2 ELSE
  IF Str = 'Mar' THEN result := 3 ELSE
  IF Str = 'Apr' THEN result := 4 ELSE
  IF Str = 'May' THEN result := 5 ELSE
  IF Str = 'Jun' THEN result := 6 ELSE
  IF Str = 'Jul' THEN result := 7 ELSE
  IF Str = 'Aug' THEN result := 8 ELSE
  IF Str = 'Sep' THEN result := 9 ELSE
  IF Str = 'Oct' THEN result := 10 ELSE
  IF Str = 'Nov' THEN result := 11 ELSE
  IF Str = 'Dec' THEN result := 12
end;

Man liest sich, Stanlay