Советы по Delphi
Получение номера месяца по его имени
...через цикл обхода элементов глобального массива LongMonthNames:
| Function GetMonthNumber ( Month : String ) : Integer; Begin For Result := 1 to 12 do If Month = LongMonthNames[Result] Then Exit; Result := 0; End; |
[000646]
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий