<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
	<channel>
		<title><![CDATA[Серый форум &mdash; WSH,VBS,JS: Переделайте пожалуйста функцию из JS в VBS]]></title>
		<link>http://forum.script-coding.com/viewtopic.php?id=16402</link>
		<atom:link href="http://forum.script-coding.com/extern.php?action=feed&amp;tid=16402&amp;type=rss" rel="self" type="application/rss+xml" />
		<description><![CDATA[Недавние сообщения в теме «WSH,VBS,JS: Переделайте пожалуйста функцию из JS в VBS».]]></description>
		<lastBuildDate>Thu, 03 Jun 2021 15:08:24 +0000</lastBuildDate>
		<generator>PunBB</generator>
		<item>
			<title><![CDATA[Re: WSH,VBS,JS: Переделайте пожалуйста функцию из JS в VBS]]></title>
			<link>http://forum.script-coding.com/viewtopic.php?pid=148254#p148254</link>
			<description><![CDATA[<p>Попробуйте так:<br /></p><div class="codebox"><pre><code>Option Explicit

Dim i

For i = 0 To 25
	WScript.Echo CStr(i) &amp; &quot; &quot; &amp; GetNumEnding(i, Array(&quot;яблоко&quot;, &quot;яблока&quot;, &quot;яблок&quot;))
Next

WScript.Quit 0

Function GetNumEnding(ByVal lngNumber, arrEndings)
	lngNumber = lngNumber Mod 100
	
	If lngNumber &gt;= 11 And lngNumber &lt;= 19 Then
		GetNumEnding = arrEndings(2)
	Else
		lngNumber = lngNumber Mod 10
		
		Select Case lngNumber
			Case 1
				GetNumEnding = arrEndings(0)
			Case 2, 3, 4
				GetNumEnding = arrEndings(1)
			Case Else
				GetNumEnding = arrEndings(2)
		End Select
	End If
End Function
</code></pre></div>]]></description>
			<author><![CDATA[null@example.com (alexii)]]></author>
			<pubDate>Thu, 03 Jun 2021 15:08:24 +0000</pubDate>
			<guid>http://forum.script-coding.com/viewtopic.php?pid=148254#p148254</guid>
		</item>
		<item>
			<title><![CDATA[WSH,VBS,JS: Переделайте пожалуйста функцию из JS в VBS]]></title>
			<link>http://forum.script-coding.com/viewtopic.php?pid=148244#p148244</link>
			<description><![CDATA[<div class="codebox"><pre><code>/**
 * Функция возвращает окончание для множественного числа слова на основании числа и массива окончаний
 * @param  iNumber Integer Число на основе которого нужно сформировать окончание
 * @param  aEndings Array Массив слов или окончаний для чисел (1, 4, 5),
 *         например [&#039;яблоко&#039;, &#039;яблока&#039;, &#039;яблок&#039;]
 * @return String
 */
function getNumEnding(iNumber, aEndings)
{
    var sEnding, i;
    iNumber = iNumber % 100;
    if (iNumber&gt;=11 &amp;&amp; iNumber&lt;=19) {
        sEnding=aEndings[2];
    }
    else {
        i = iNumber % 10;
        switch (i)
        {
            case (1): sEnding = aEndings[0]; break;
            case (2):
            case (3):
            case (4): sEnding = aEndings[1]; break;
            default: sEnding = aEndings[2];
        }
    }
    return sEnding;
}</code></pre></div>]]></description>
			<author><![CDATA[null@example.com (929151)]]></author>
			<pubDate>Thu, 03 Jun 2021 08:31:15 +0000</pubDate>
			<guid>http://forum.script-coding.com/viewtopic.php?pid=148244#p148244</guid>
		</item>
	</channel>
</rss>
