阿拉伯数字转中文数字

推荐阅读：

•  我的CSDN
•  我的博客园
•  QQ群：704621321
•  我的个人博客

例如：将102转为一百零二；将08转为八。

local chnNumChar = {"零","一","二","三","四","五","六","七","八","九"} 
local chnUnitChar = {"","十","百","千"}
local chnUnitSection = {"","万","亿","万亿"}
local function sectionTOChinese(section,chineseNum)
    local setionChinese = ""
    local unitPos = 1
    local zero = true
    while(section>0)
    do
        local v = section%10
        if v == 0 then
            if (not zero) then 
                zero = true
                chineseNum = chnNumChar[1] .. chineseNum
            end
        else
            zero = false
            setionChinese = chnNumChar[v+1]
            setionChinese = setionChinese .. chnUnitChar[unitPos] 
            chineseNum = setionChinese .. chineseNum
        end 
        unitPos = unitPos + 1
        section = math.floor(section/10)
    end
      
    return chineseNum 
end

local function NumberToChinese(num)
    if num == 0 then  
        return "零" 
    end
    local unitPos = 1 --节权位标识  
    local All = ""
    local chineseNum = ""
    local needZero = false --下一小结是否需要补零  
    local strIns = ""
    while(num>0)
    do
        local section = num%10000--取最后面的那一个小节  
        if needZero then --判断上一小节千位是否为零，为零就要加上零  
            All = chnNumChar[1] .. All
        end
        chineseNum = sectionTOChinese(section,chineseNum)
        if section ~= 0 then
            strIns = chnUnitSection[unitPos]
            chineseNum = chineseNum .. strIns
        else 
            strIns = chnUnitSection[1]
            chineseNum = strIns .. chineseNum 
        end
        All = chineseNum .. All 
        chineseNum = "" 
        needZero = (section<1000) and (section>0)  
        num = math.floor(num/10000)
        unitPos = unitPos + 1
    end 
    return All
end