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

Материал из DRKB

Название месяца --> номер месяца[править | править код]

{ **** 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;


Source: http://delphibase.endimus.com
ID: 00754



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

function GetMonthNumber(Month: String): Integer;
begin
  for Result := 1 to 12 do
    if Month = LongMonthNames[Result] then
      Exit;
  Result := 0;
end;


Source: http://delphiworld.narod.ru
ID: 00759