<!--#include file=common.asp-->
<%
薄暗いtmpnum
'最初のページから渡される小文字の金額
tmpnum=リクエスト("ページ1番号")
'呼び出して金額を大文字で表示
応答.write rmb(cdbl(tmpnum))
応答.終了
%>
共通.asp
<%
関数 rmb(num)
num = FormatNumber(num, 2)
ディムナムリスト
Dim rmbList
ディムナムレン
ディム数値文字
ディム数値
ディムン
ディムn1、n2
wxya
numList = "0、1、2、3、4、5、6、8、9"
rmbList = "セントのセント 1 億 1 億 1 億"
If num > 9999999999999.99 then
rmb = "人民元の値が範囲外です"
終了関数
End If
numstr = CStr(num * 100)
numLen = Len(numstr)
n=1
n <= numLen の間実行します
numChar = CInt(Mid(numstr, n, 1))
n1 = Mid(numList, numChar + 1, 1)
n2 = Mid(rmbList, numLen - n + 1, 1)
n1 = "ゼロ" でない場合
hz = hz + CStr(n1) + CStr(n2)
それ以外
n2 = "1億" または n2 = "10,000" または n2 = "元" または n1 = "0" の場合
右ながら実行(hz, 1) = "ゼロ"
hz = 左(hz, レン(hz) - 1)
ループ
終了の場合
If (n2 = "1 億" または (n2 = "10,000" And Right(hz, 1) <> "1 億") または n2 = "1 億") then
hz = hz + CStr(n2)
それ以外
Left(Right(hz, 2), 1) = "ゼロ" または Right(hz, 1) <> "1 億" の場合
hz = hz + n1
終了の場合
終了の場合
終了の場合
n = n + 1
ループ
右ながら実行(hz, 1) = "ゼロ"
hz = 左(hz, レン(hz) - 1)
ループ
If Right(hz, 1) = "元" then
hz = Hz + 「全体」
終了の場合
rmb=Hz
関数の終了
%>
このバージョンでは、小数点以下の欠落の問題が解決され、処理方法が会計方法と一致しています。