Функция преобразует текстовую строку, задающую название месяца, в номер месяцаDelphi , Синтаксис , Дата и ВремяФункция преобразует текстовую строку, задающую название месяца, в номер месяца
Автор: Сергей { **** UBPFD *********** by delphibase.endimus.com **** >> Функция преобразует текстовую строку, задающую название месяца, в номер месяца функция преобразует текстовую строку,задающую название месяца, в номер месяца Зависимости: ??? Автор: Сергей, nfkazak@inbox.ru, Краснодар Copyright: VIP BANK Дата: 11 сентября 2002 г. ***************************************************** } function NumMonth(SMonth: string): word; var i: byte; begin Result := 0; for i := 1 to 12 do if AnsiUpperCase(SMonth) = Month[i] then Result := i end; Here's the translation of the text into Russian: Функция Delphi под именем Разбивка кода:
Массив Некоторые предложения по улучшению:
В целом, код прост и легко понятен, но он мог бы выиграть от некоторых дополнительных рассмотрений для его более надежной и пользовательской friendliness. Функция NumMonth преобразует текстовую строку, задающую название месяца, в номер месяца. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Дата и Время ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |