Parameters lnmoneylnnumber = lnmoneychinamoney = "" DIME chinano (10) chinano (1) = "zero" chinano (2) = "" chinano (3) = "" chinano (4) = "叁" chinano (5) = " "Chinano (6) =" Wu "chinano (7) =" Lu "chinano (8) =" 柒 "chinano (9) =" 捌 "chinano (10) =" 玖 "DIME CDW (2) CDW (1 ) = "Angle" cdw (2) = "division" DIME chinanum (10) chinanum (1) = "Yuan" chinanum (2) = "Pick up" chinanum (3) = "" chinanum (4) = "" Chinanum (5) = "Wan" chinanum (6) = "Pick up" chinanum (7) = "" chinanum (8) = "" chinanum (9) = "100 million" chinanum (10) = "pick" lnintnumber = INT (LNNumber) LCINTNUMBER = Alltrim (Str (LnintNumber, 10, 0)) LNDICNUMBER = INT * 100) LCDICNumber = Iif (! EMPTY (LNDICNUMBER), STR (LNDICNUMBER, 2, 0), "" )
N = 1for i = len (lcintnumber) to 1 step -1 for j = 1 to 10 if Val (Subst (LCINTNUMBER, I, 1)) = J-1 chinamoney = chinano (j) chinanum (n) chinamoney n = N 1 exit endif endforendforif! EMPTY (LCDICNumber) for z = 1 to 2 for p = 1 to 10 if Val (Subst (LcDICNumber, Z, 1)) = P-1 chinamoney = chinamoney chinano (P) CDW (Z) End Endif endfor Endforelse chinamoney = chinamoney "whole" endifreturn chinamoney
