2017年11月
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30    
無料ブログはココログ

« 地域と言語の設定に依存しない数字の桁区切り(JScript) | トップページ | スクリプトから.NETを使って、文字の繰り返し関数を代替する。 »

2008年8月13日 (水)

地域と言語の設定に依存しない数字の桁区切り(VBScript)

同様に、VBScriptで、符号や少数点のない整数の場合、

Function NumberGroup(n,g)
Dim s
Dim a
Dim k
s=CStr(n)
ReDim a((Len(s)+g-1) \ g -1)
k=Len(s) Mod g
If k Then a(0)=Left(s,k)
For k=k+1 To Len(s) Step g
  a((k+g-2) \ g)=Mid(s,k,g)
Next
NumberGroup=Join(a,",")
End Function

« 地域と言語の設定に依存しない数字の桁区切り(JScript) | トップページ | スクリプトから.NETを使って、文字の繰り返し関数を代替する。 »