<!--#include file=common.asp-->
<%
قاتمة tmpnum
'المبلغ الصغير الذي تم تمريره من الصفحة الأولى
tmpnum=request("page1num")
"اتصل وأظهر المبلغ بالأحرف الكبيرة."
الاستجابة.اكتب rmb(cdbl(tmpnum))
Response.end
%>
common.asp
<%
الدالة rmb(num)
num = FormatNumber(num, 2)
DimnumList
قائمة خافتة rmb
DimnumLen
خافت numChar
رقم خافت
خافت ن
خافت ن1، ن2
wxya
numList = "صفر، واحد، اثنان، ثلاثة، أربعة، خمسة، ستة، ثمانية، تسعة"
rmbList = "سنتات السنتات مائة مليون ومائة مليون ومائة مليون"
إذا كان الرقم > 9999999999999.99 إذن
rmb = "قيمة الرنمينبي خارج النطاق"
وظيفة الخروج
النهاية إذا كان
numstr = CStr(num * 100)
numLen = لين(numstr)
ن = 1
افعل بينما n <= numLen
numChar = CInt(Mid(numstr, n, 1))
n1 = منتصف (numList، numChar + 1، 1)
n2 = منتصف (rmbList، numLen - n + 1، 1)
إذا لم يكن n1 = "صفر" إذن
هرتز = هرتز + CStr(n1) + CStr(n2)
آخر
إذا كان n2 = "100 مليون" أو n2 = "10,000" أو n2 = "يوان" أو n1 = "0" إذن
افعل بينما على اليمين (هرتز، 1) = "صفر"
هرتز = اليسار (هرتز، لين (هرتز) - 1)
حلقة
نهاية إذا
إذا كانت (n2 = "100 مليون" أو (n2 = "10,000" و Right(hz, 1) <> "100 مليون") أو n2 = "100 مليون") إذن
هرتز = هرتز + CStr(n2)
آخر
إذا كان Left(Right(hz, 2), 1) = "صفر" أو Right(hz, 1) <> "100 مليون" إذن
هرتز = هرتز + n1
نهاية إذا
نهاية إذا
نهاية إذا
ن = ن + 1
حلقة
افعل بينما على اليمين (هرتز، 1) = "صفر"
هرتز = اليسار (هرتز، لين (هرتز) - 1)
حلقة
إذا كان اليمين (هرتز، 1) = "元" إذن
هرتز = هرتز + "الكل"
نهاية إذا
يوان = هرتز
وظيفة النهاية
٪>
هذا الإصدار يحل مشكلة فقدان المنازل العشرية، وطريقة المعالجة متوافقة مع أساليب المحاسبة!