<% Function RMB (NUM)
Num = formatNumber (NUM, 2) DIM NUMLIST DIM RMBLIST DIM NUMLENDIM NUMCHARDIM NUMSTRDIM N DIM N1, N2 DIM HZNUMLIST = "Zero] RMBLIST =" Pointing Yuan Pixun 万 万 万 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元 元Pick up 10,000
IF Num> 9999999999999.99 THEN RMB = "Benefits Renminbi Value" EXIT FUNCTIONEND IF
Numstr = CSTR (Num * 100) Numlen = len (Numstr) n = 1do while n <= Numlen Numchar = CINT (MID (Numlist, N, 1)) N1 = MID (Numlist, Numchar 1, 1) N2 = MID (RmbList, Numlen - N 1, 1) if not n1 = "zero" THEN HZ = Hz CSTR (N1) CSTR (N2) Else if N2 = "100 million" OR N2 = "万" or N2 = " OR N1 = "zero" Then Do while Right (Hz, 1) = "zero" Hz = Left (Hz, LEN (Hz) - 1) loop end if if (n2 = "" OR (N2 = "10,000" And Right (HZ, 1) <> "100 million") or N2 = "yuan") THEN HZ = Hz CSTR (N2) Else if Left (Right (Hz, 2), 1) = "zero" or Right (HZ , 1) <> "" "" THEN HZ = Hz N1 End if end if end if n = n 1LOOPDO while Right (Hz, 1) = "zero" Hz = Left (Hz, LEN (HZ) - 1) loopif Right (Hz, 1) = "Yuan" THEN HZ = Hz "whole" end ifrmb = hzend function
%>
