<!--#include file=common.asp-->
<%
número de temporario tenue
'La cantidad en minúsculas pasada desde la primera página
tmpnum=solicitud("página1num")
'Llama y muestra el monto en mayúsculas
respuesta.escribir rmb(cdbl(tmpnum))
respuesta.fin
%>
común.asp
<%
Función rmb(núm)
núm = FormatoNúmero(núm, 2)
Lista Dimnum
Lista de rmb tenue
DimnumLen
Número tenueCar
número tenue
tenue sustantivo
Oscuro n1, n2
wxya
numList = "Cero, uno, dos, tres, cuatro, cinco, seis, ocho, nueve"
rmbList = "centavos de centavos cien millones cien millones cien millones"
Si num > 9999999999999.99 Entonces
rmb = "Valor RMB fuera de rango"
Función de salida
Fin si
numstr = CStr(num * 100)
numLen = Len(númstr)
norte=1
Hacer mientras n <= numLen
numChar = CInt(Medio(numstr, n, 1))
n1 = Medio(listaNúm, Carácter Núm + 1, 1)
n2 = Medio(rmbList, numLen - n + 1, 1)
Si no es n1 = "cero", entonces
Hz = Hz + CStr(n1) + CStr(n2)
Demás
Si n2 = "100 millones" O n2 = "10,000" O n2 = "Yuan" O n1 = "0" Entonces
Hacer mientras esté bien (hz, 1) = "cero"
hz = Izquierda(hz, Len(hz) - 1)
Bucle
Terminar si
Si (n2 = "100 millones" o (n2 = "10,000" y derecha (hz, 1) <> "100 millones") o n2 = "100 millones") entonces
hz = hz + CStr(n2)
Demás
Si Izquierda(Derecha(hz, 2), 1) = "cero" O Derecha(hz, 1) <> "100 millones" Entonces
hz = hz + n1
Terminar si
Terminar si
Terminar si
norte = norte + 1
Bucle
Hacer mientras esté bien (hz, 1) = "cero"
hz = Izquierda(hz, Len(hz) - 1)
Bucle
Si Derecha(hz, 1) = "元" Entonces
hz = hz + "completo"
Terminar si
RMB=Hz
Función final
%>
¡Esta versión resuelve el problema de la falta de decimales y el método de procesamiento es consistente con los métodos contables!