Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   

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

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


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

           


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


Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011