<!--#include file=common.asp-->
<%
faible tmpnum
'Le montant en minuscules transmis depuis la première page
tmpnum=requête("page1num")
'Appelle et affiche le montant en majuscule
réponse.write rmb(cdbl(tmpnum))
réponse.end
%>
commun.asp
<%
Fonction rmb(num)
num = FormatNumber(num, 2)
Liste Dimnum
Dim rmbListe
DimnumLen
Dim numChar
Faible numéro
Dim n
Dim n1, n2
wxya
numList = "Zéro, un, deux, trois, quatre, cinq, six, huit, neuf"
rmbList = "cents de cents cent millions cent millions cent millions"
Si num > 99999999999999.99 Alors
rmb = "Valeur RMB hors plage"
Fonction de sortie
Fin Si
numstr = CStr(num * 100)
numLen = Len(numstr)
n=1
Faire pendant que n <= numLen
numChar = CInt (Mid (numstr, n, 1))
n1 = Milieu (numList, numChar + 1, 1)
n2 = Milieu (rmbList, numLen - n + 1, 1)
Si Non n1 = "zéro" Alors
Hz = Hz + CStr(n1) + CStr(n2)
Autre
Si n2 = "100 millions" Ou n2 = "10 000" Ou n2 = "Yuan" Ou n1 = "0" Alors
Faire à droite (hz, 1) = "zéro"
Hz = Gauche(hz, Len(hz) - 1)
Boucle
Fin si
Si (n2 = "100 millions" Ou (n2 = "10 000" Et Right(hz, 1) <> "100 millions") Ou n2 = "100 millions") Alors
Hz = Hz + CStr(n2)
Autre
Si Gauche(Droite(hz, 2), 1) = "zéro" Ou Droite(hz, 1) <> "100 millions" Alors
Hz = Hz + n1
Fin si
Fin si
Fin si
n = n + 1
Boucle
Faire à droite (hz, 1) = "zéro"
Hz = Gauche(hz, Len(hz) - 1)
Boucle
Si Right(hz, 1) = "元" Alors
Hz = Hz + "entier"
Fin si
RMB = Hz
Fin de la fonction
%>
Cette version résout le problème des décimales manquantes, et la méthode de traitement est cohérente avec les méthodes comptables !