<!--#include file=common.asp-->
-
tmpnum สลัว
'จำนวนตัวพิมพ์เล็กส่งผ่านจากหน้าแรก
tmpnum=request("page1num")
'โทรออกและแสดงจำนวนเงินเป็นตัวพิมพ์ใหญ่
การตอบสนองเขียน rmb (cdbl (tmpnum))
การตอบสนองสิ้นสุด
-
ทั่วไป.asp
-
ฟังก์ชัน rmb(num)
num = FormatNumber(num, 2)
DimnumList
หรี่ rmbList
ดิมนัมเลน
ติ่มนัมชาร์
หมายเลขติ่มซำ
ดิม น
ดิม n1, n2
ว้าว
numList = "ศูนย์ หนึ่ง สอง สาม สี่ ห้า หก แปด เก้า"
rmbList = "เซนต์ของเซนต์หนึ่งร้อยล้านหนึ่งร้อยล้านหนึ่งร้อยล้าน"
ถ้า num > 9999999999999.99 แล้ว
rmb = "ค่า RMB อยู่นอกช่วง"
ออกจากฟังก์ชัน
สิ้นสุด ถ้า
numstr = CStr(num * 100)
numLen = Len(ตัวเลข)
n=1
ทำในขณะที่ n <= numLen
numChar = CInt(กลาง(numstr, n, 1))
n1 = กลาง (numList, numChar + 1, 1)
n2 = กลาง(rmbList, numLen - n + 1, 1)
ถ้าไม่ใช่ n1 = "ศูนย์" แล้ว
hz = เฮิร์ตซ์ + CStr(n1) + CStr(n2)
อื่น
ถ้า n2 = "100 ล้าน" หรือ n2 = "10,000" หรือ n2 = "หยวน" หรือ n1 = "0" แล้ว
ทำในขณะที่ถูกต้อง(hz, 1) = "ศูนย์"
hz = ซ้าย (hz, Len (hz) - 1)
วนซ้ำ
สิ้นสุดถ้า
ถ้า (n2 = "100 ล้าน" หรือ (n2 = "10,000" และขวา(hz, 1) <> "100 ล้าน") หรือ n2 = "100 ล้าน") แล้ว
hz = hz + CStr(n2)
อื่น
ถ้า ซ้าย(ขวา(hz, 2), 1) = "ศูนย์" หรือ ขวา(hz, 1) <> "100 ล้าน" แล้ว
เฮิรตซ์ = เฮิรตซ์ + n1
สิ้นสุดถ้า
สิ้นสุดถ้า
สิ้นสุดถ้า
n = n + 1
วนซ้ำ
ทำในขณะที่ถูกต้อง(hz, 1) = "ศูนย์"
hz = ซ้าย (hz, Len (hz) - 1)
วนซ้ำ
ถ้าขวา(hz, 1) = "元" แล้ว
hz = hz + "ทั้งหมด"
สิ้นสุดถ้า
หยวน = hz
สิ้นสุดฟังก์ชัน
%>
เวอร์ชันนี้แก้ปัญหาการไม่มีตำแหน่งทศนิยม และวิธีการประมวลผลสอดคล้องกับวิธีการทางบัญชี!