Function Num2RMB ($ NUM) {$ C1 = "Zero 壹 叁 肆 柒捌"; $ C2 = "Practitioner Picture"; $ Num = Round ($ Num, 2); $ Num = $ Num * 100; IF (Strlen "> 10) {Return" OH, Sorry, The Number IS TOON! ";} $ I = 0; $ c =" "; while 1) {IF ($ i == 0) {$ n = substr ($ Num, Strlen ($ Num) -1, 1);} else {$ n = $ Num% 10; $ P1 = SUBSTR ($ C1 , 2 * $ N, 2); $ P2 = SubStr ($ C2, 2 * $ I, 2); if ($ N! = '0' | | ($ n == '0' && ($ P2 == 'Billion | | $ P2 =='))) {$ c = $ p1. $ P2. $ C;} else {$ c = $ p1. $ C; $ I = $ i 1; $ Num = $ Num / 10; $ Num = (int) $ Num; if ($ Num == 0) {Break;}} $ j = 0; $ Slen = Strlen ($ C) WHILE ($ J <$ SLEN) { $ m = substr ($ C, $ J, 4); if ($ m == 'zero "| | $ m ==' 万 '| | $ m ==' 亿 '| | $ m == 'Zero') {$ Left = SUBSTR ($ C, 0, $ J); $ Right = Substr ($ C, $ J 2); $ C = $ l = $ right; $ j = $ j-2 $ Slen = $ SLEN-2;} $ j =