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
