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



Автор: Сергей
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Функция преобразует текстовую строку, задающую название месяца, в номер месяца
функция преобразует текстовую строку,задающую название месяца, в номер месяца
Зависимости: ???
Автор:       Сергей, [email protected], Краснодар
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;

Далее: Функция, которая устанавливает дату одного файла, равную дате другого файла »»