const NomsMois : array[0..1] of array[1..12] of string =
(
('janvier', 'fevrier', 'mars', 'avril', 'mai', 'juin', 'juillet', 'août', 'septembre', 'octobre', 'novembre', 'decembre'),
('janv' ,'fevr' , 'mars', 'avr' , 'mai', 'juin', 'juil' , 'aout', 'sept' , 'oct' , 'nov' , 'dec' )
);
type TMoisNo = 0..12;
function GetMonthNum(MonthName: String): TMoisNo;
var
i, j: integer;
begin
MonthName := LowerCase(StringReplace(MonthName, 'é', 'e', [rfReplaceAll, rfIgnoreCase]));
Result := 0;
i := Low(NomsMois);
while (Result = 0) and (i <= High(NomsMois)) do
begin
j := Low(NomsMois[i]);
while (Result = 0) and (j <= High(NomsMois[i])) do
begin
if NomsMois[i][j] = MonthName then
Result := j;
Inc(j);
end;
Inc(i);
end;
end;