[Code] Đổi số ra chữ cái

by **Admin** Mon Dec 17, 2012 2:57 am

Code:: Global Const $aSo[10] = ["khÃ´ng", "má»™t", "hai", "ba", "bá»‘n", "nÄƒm", "sÃ¡u", "báº£y", "tÃ¡m", "chÃn"] Global Const $aDonviA[3] = ["", "mÆ°Æ¡i", "trÄƒm"] Global Const $aDonviB[4] = ["", "ngÃ n", "triá»‡u", "tá»‰"] Func ConvertNumber2String($so) Local $chu = "" For $i=0 To UBound($aDonviB)-1 $chu = $aDonviB[$i] & " " & $chu For $ii=0 To UBound($aDonviA)-1 $num = Mod($so, 10) $so = Int($so/10) ;Important If $num == 0 And ($chu == "" Or $chu == " ") And $ii <> 0 Then ContinueLoop $chu = $aSo[$num] & " " & $aDonviA[$ii] & " " & $chu $chu = StringReplace($chu, $aSo[0] & " " & $aDonviA[1], "láº»") $chu = StringReplace($chu, "láº» khÃ´ng", "") $chu = StringReplace($chu, $aSo[1] & " " & $aDonviA[1], "mÆ°á»i") $chu = StringReplace($chu, "mÆ°á»i khÃ´ng", "mÆ°á»i") $chu = StringReplace($chu, $aDonviA[1] & " " & $aSo[0], $aDonviA[1]) $chu = StringReplace($chu, $aDonviA[1] & " " & $aSo[1], "mÆ°Æ¡i má»‘t") $chu = StringReplace($chu, " ", " ") If $i > 0 Then $chu = StringReplace($chu, $aSo[0] & " " & $aDonviA[2] & " " & $aDonviB[$i], "") If $so <= 0 Then Return $chu Next Next EndFunc MsgBox(0,0, ConvertNumber2String(0)) MsgBox(0,0, ConvertNumber2String(10000000)) MsgBox(0,0, ConvertNumber2String(51670105454545454545450001))