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;

Code:

Function GetMonthNumber(Month: String): Integer;

Begin

For Result := 1to12do

If Month = LongMonthNames[Result] Then

Exit;

Result := 0;

End;