Code:

{ **** UBPFD *********** by delphibase.endimus ****

>> Функция преобразует текстовую строку, задающую название месяца, в номер месяца

 

функция преобразует текстовую строку,задающую название месяца, в номер месяца

 

Зависимости: ???

Автор: Сергей, nfkazakinbox.ru, Краснодар

Copyright: VIP BANK

Дата: 11 сентября 2002 г.

***************************************************** }

 

function NumMonth(SMonth: string): word;

var

i: byte;

begin

Result := 0;

for i := 1to12do

if AnsiUpperCase(SMonth) = Month[i] then

Result := i

end;

 

 

 


 

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

 

 

Code:

Function GetMonthNumber(Month: String): Integer;

Begin

For Result := 1to12do

If Month = LongMonthNames[Result] Then

Exit;

Result := 0;

End;

 

 

 

https://delphiworld.narod

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить