Функция преобразует текстовую строку, задающую название месяца, в номер месяца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; Статья Функция преобразует текстовую строку, задающую название месяца, в номер месяца раздела Синтаксис Дата и Время может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Дата и Время ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |