<!--#include arquivo=common.asp-->
<%
dim tmpnum
'O valor em minúsculas passado da primeira página
tmpnum=request("númpágina")
'Ligue e exiba o valor em letras maiúsculas
resposta.write rmb(cdbl(tmpnum))
resposta.fim
%>
comum.asp
<%
Função rmb(num)
num = FormatNumber(num, 2)
Lista Dimnum
Dim rmbList
Dimnum Len
Dim numChar
Dim numstr
Escurecer
Dim n1, n2
olá
numList = "Zero, um, dois, três, quatro, cinco, seis, oito, nove"
rmbList = "centavos de centavos cem milhões cem milhões cem milhões"
Se num > 9999999999999,99 Então
rmb = "Valor RMB fora do intervalo"
Função de saída
Fim se
numstr = CStr(num * 100)
numLen = Len(numstr)
n=1
Faça enquanto n <= numLen
numChar = CInt(Mid(numstr, n, 1))
n1 = Médio(numLista, numChar + 1, 1)
n2 = Mid(rmbList, numLen - n + 1, 1)
Se não n1 = "zero" então
Hz = Hz + CStr(n1) + CStr(n2)
Outro
Se n2 = "100 milhões" Ou n2 = "10.000" Ou n2 = "Yuan" Ou n1 = "0" Então
Faça enquanto está certo(hz, 1) = "zero"
hz = Esquerda(hz, Len(hz) - 1)
Laço
Terminar se
Se (n2 = "100 milhões" Ou (n2 = "10.000" And Right(hz, 1) <> "100 milhões") Ou n2 = "100 milhões") Então
Hz = Hz + CStr(n2)
Outro
Se Esquerda(Direita(hz, 2), 1) = "zero" Ou Direita(hz, 1) <> "100 milhões" Então
hertz = hertz + n1
Terminar se
Terminar se
Terminar se
n = n + 1
Laço
Faça enquanto está certo(hz, 1) = "zero"
hz = Esquerda(hz, Len(hz) - 1)
Laço
Se Certo(hz, 1) = "元" Então
hz = hz + "inteiro"
Terminar se
rmb=hz
Função Final
%>
Esta versão resolve o problema de falta de casas decimais e o método de processamento é consistente com os métodos contábeis!