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

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

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

Function GetMonthNumber(Month: String): Integer;
Begin
  For Result := 1 to 12 do
    If Month = LongMonthNames[Result] Then
      Exit;
  Result := 0;
End;

ясновидящие . Алкогольная лицензия от 12 000 р - медицинская лицензия. Медицинская лицензия с нуля. . Купить электронная сигарета оптом . скорая помощь тел. перевозки психически больных . Ремонт компьютера Самара, заправка картриджа Самара .