<!--#include file=common.asp-->
<%
redupkan tmpnum
'Jumlah huruf kecil yang lolos dari halaman pertama
tmpnum=permintaan("nomor halaman1")
'Panggil dan tampilkan jumlahnya dalam huruf besar
respon.tulis rmb(cdbl(tmpnum))
respon.akhir
%>
umum.asp
<%
Fungsi rmb(angka)
angka = FormatNumber(angka, 2)
Daftar Dimnum
Redupkan rmbList
DimnumLen
Redupkan angkaChar
Redupkan angka
Redupkan n
Redupkan n1, n2
wxya
numList = "Nol, satu, dua, tiga, empat, lima, enam, delapan, sembilan"
rmbList = "sen sen seratus juta seratus juta seratus juta"
Jika bilangan > 9999999999999.99 Maka
rmb = "Nilai RMB di luar jangkauan"
Fungsi Keluar
Akhir Jika
numstr = CStr(angka * 100)
angkaLen = Len(angkastr)
n=1
Lakukan Sementara n <= numLen
numChar = CInt(Tengah(angka, n, 1))
n1 = Tengah(numList, numChar + 1, 1)
n2 = Tengah(rmbList, numLen - n + 1, 1)
Jika Tidak n1 = "nol" Maka
hz = hz + CStr(n1) + CStr(n2)
Kalau tidak
Jika n2 = "100 juta" Atau n2 = "10.000" Atau n2 = "Yuan" Atau n1 = "0" Maka
Lakukan Sementara Benar(hz, 1) = "nol"
hz = Kiri(hz, Len(hz) - 1)
Lingkaran
Akhiri Jika
Jika (n2 = "100 juta" Atau (n2 = "10.000" Dan Benar(hz, 1) <> "100 juta") Atau n2 = "100 juta") Maka
hz = hz + CStr(n2)
Kalau tidak
Jika Kiri(Kanan(hz, 2), 1) = "nol" Atau Kanan(hz, 1) <> "100 juta" Maka
hz = hz + n1
Akhiri Jika
Akhiri Jika
Akhiri Jika
n = n + 1
Lingkaran
Lakukan Sementara Benar(hz, 1) = "nol"
hz = Kiri(hz, Len(hz) - 1)
Lingkaran
Jika Benar(hz, 1) = "元" Maka
hz = hz + "keseluruhan"
Akhiri Jika
rmb=hz
Fungsi Akhir
%>
Versi ini memecahkan masalah hilangnya tempat desimal, dan metode pemrosesannya konsisten dengan metode akuntansi!