Название месяца --> номер месяца

Название месяца --> номер месяца

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Функция преобразует текстовую строку, задающую название месяца, в номер месяца
функция преобразует текстовую строку,задающую название месяца, в номер месяца
Зависимости: ???
Автор: Сергей, <a href="mailto:nfkazak@inbox.ru">nfkazak@inbox.ru</a>, Краснодар
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;

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

Function GetMonthNumber(Month: String): Integer;
Begin
 For Result := 1 to 12 do
  If Month = LongMonthNames[Result] Then
  Exit;
 Result := 0;
End;

http://delphiworld.narod.ru/ DelphiWorld 6.0

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...