$ m_cash1 = 'zero Zi Ziji Wu Lu 柒捌'; $ m_cash2 = '佰 佰 万 万 佰 元 元';
$ m_AMT = 1080;
FOR ($ m_len = 0; $ m_len <(8-strlen); $ m_len ) {$ m_add. = "0";} $ m_amt = $ m_add. $ m_amt; echo $ m_amt; $ m_i = 1 $ M_ab = '; while ($ m_i <= 8) {$ m_ab. = SubStr ($ m_cash1, substr ($ m_AMT, $ m_i-1, 1) * 2, 2).' '. Substr ($ m_cash2 ($ m_i-1) * 2, 2); $ m_i ;} echo $ m_ab. "
";
?>
JavaScript version
Function Chinese (NUM) // Translated the Arab Digital to Chinese Capital Number {IF (! / ^ / D * (/./ D *)? $ /. Test (Num)) {Alert ("Number IS WRONG!" Return "Number IS WRONG!";
Var aa = new array ("zero", "", "", "", "", "Wu", "柒", "捌", "玖"); var bb = New Array ("Round", "Pick", "", "", "10,000", "point", ""); var A = (" Num) .replace (/ (^ 0 *) / g, "") .split ("."), K = 0, re = "";
For (var i = a [0] .length-1; i> = 0; I - {switch (k) {case 0: re = bb [7] re; break; case 4: if (! new RegeXp ("0 {4} // D {" (a [0] .length-i-1) "} $"). TEST (A [0])) RE = BB [4] Re; Break Case 8: Re = BB [5] Re; Bb [7] = BB [5]; K = 0; Break;} IF (k% 4 == 2 && a [0] .Charat (i 2) ! = 0 && a [0] .Charat (i 1) == 0) RE = aa [0] Re; if (a [0] .Charat (i)! = 0) RE = aa [a [0) ] .Charat (i)] bb [k% 4] re; k ;}
