|
|
|
|
Одной строкой
Получение номера месяца по его имени
...через цикл обхода элементов глобального массива LongMonthNames:
|
Function GetMonthNumber ( Month : String ) : Integer;
Begin
For Result := 1 to 12 do
If Month = LongMonthNames[Result] Then Exit;
Result := 0;
End;
|
[000646]
|
|
|
|
|