рубль := ["рубль","рубля","рублей"]
доллар := ["доллар","доллара","долларов"]
фунт := ["фунт","фунта","фунтов"]
number := 100500
MsgBox, % "Ваша зарплата" " " number " " NumberEnd(number, рубль)
Return
NumberEnd(number, titles)
{
StringRight, x, number, 1
end := x=1 ? 1 : x>=2 && x<=4 ? 2 : (x>=5 && x<=9) || x=0 ? 3 :
StringRight, x, number, 2
If (x>=11) && (x<=14)
end := 3
Return titles[end]
}MsgBox % NumberEnd(21, ["лодка","лодки","лодок"])
NumberEnd(n, words) {
return words[mod(n, 100) > 4 && mod(n, 100) < 20 ? 3
: mod(n, 10) = 0 ? 3 : mod(n, 10) = 1 ? 1
: mod(n, 10) < 5 ? 2 : 3]
}Или аналог php:
NumberEnd(n, words) {
return words[(m := mod(n, 100)) > 4 && m < 20 ? 3
: [3, 1, 2, 2, 2, 3][(m := mod(m, 10) + 1) > 6 ? 6 : m]]
}
function NumberEnd($number, $titles) {
$cases = array (2, 0, 1, 1, 1, 2);
return $titles[ ($number%100>4 && $number%100<20)? 2 : $cases[min($number%10, 5)] ];
}
В первом параметре $number задается число к которому склоняем.
Во втором параметре $titles задается массив со словами. (Как я писал выше. Пример: палец, пальца, пальцев)
В этой строке:
$cases = array (2, 0, 1, 1, 1, 2);Как я понял выбирается падеж. (Начала массива не с 1, а с 0)
Данная строка получает остаток от деления (символ % делит и возвращает остаток от деления)
$number%100винт - винта
заяц - зайца
палец - пальца
EndWord("лодк", Array("а","и","ок"), 2)
лодк - начало слова к которому потом добавится окончание.
Array("а","и","ок") - перечень последовательных окончаний.
2 - к какому числу нужно склонить.
1 лодка
2 лодки
5 лодок
11 лодок
21 лодка
Пробовал переписать функцию с PHP на AutoHotKey, но к сожалению ничего не вышло. Надеюсь на вашу сообразительность, ум и помощь.
Заранее спасибо!