Склонение русских слов по числу

[Webarion]

Версия AutoIt

3.3.14.5

Версия

1

Небольшой скрипт, который помогает просклонять русские слова, относительно числа:

; Вариант 1
Local $iNumber = Random(0, 100, 1)
Local $sSklon = _DeclRusNumber($iNumber, 'Круг', 'Круга', 'Кругов')
ConsoleWrite('Вариант 1: ' & @TAB & $iNumber & ' ' & $sSklon & @CRLF)

; Вариант 2
Local $iNumber = Random(0, 100, 1)
Local $sSklon = 'Круг' & _DeclRusNumber($iNumber, '', 'а', 'ов')
ConsoleWrite('Вариант 2: ' & @TAB & $iNumber & ' ' & $sSklon & @CRLF)

Func _DeclRusNumber($iN, $sT1, $sT2, $sT3)
    Return (Mod($iN, 10) = 1 And Mod($iN, 100) <> 11) ? $sT1 : (Mod($iN, 10) >= 2 And Mod($iN, 10) <= 4 And (Mod($iN, 100) < 10 Or Mod($iN, 100) >= 20)) ? $sT2 : $sT3
EndFunc   ;==>_DeclRusNumber

Удивительно, что не обнаружил подобной темы на форуме.