Название месяца в номер месяца
Материал из 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