Получение номера месяца по его имени

Written on 15 Октября 2007. Posted in [Delphi] Алгоритмы

...через цикл обхода элементов глобального массива LongMonthNames:

Function GetMonthNumber ( Month : String ) : Integer;

Begin

For Result := 1 to 12 do

If Month = LongMonthNames[Result] Then Exit;

Result := 0;

End;