function numberToString(szNum)
---阿拉伯数字转中文大写
local szChMoney = ""
local iLen = 0
local iNum = 0
local iAddZero = 0
local hzUnit = {"", "十", "百", "千", "万", "十", "百", "千", "亿","十", "百", "千", "万", "十", "百", "千"}
local hzNum = {"零", "一", "二", "三", "四", "五", "六", "七", "八", "九"}
if nil == tonumber(szNum) then
return tostring(szNum)
end
iLen =string.len(szNum)
if iLen > 10 or iLen == 0 or tonumber(szNum) < 0 then
return tostring(szNum)
end
for i = 1, iLen do
iNum = string.sub(szNum,i,i)
if iNum == 0 and i ~= iLen then
iAddZero = iAddZero + 1
else
if iAddZero > 0 then
szChMoney = szChMoney..hzNum[1]
end
szChMoney = szChMoney..hzNum[iNum + 1] --//转换为相应的数字
iAddZero = 0
end
if (iAddZero < 4) and (0 == (iLen - i) % 4 or 0 ~= tonumber(iNum)) then
szChMoney = szChMoney..hzUnit[iLen-i+1]
end
end
local function removeZero(num)
--去掉末尾多余的 零
num = tostring(num)
local szLen = string.len(num)
local zero_num = 0
for i = szLen, 1, -3 do
szNum = string.sub(num,i-2,i)
if szNum == hzNum[1] then
zero_num = zero_num + 1
else
break
end
end
num = string.sub(num, 1,szLen - zero_num * 3)
szNum = string.sub(num, 1,6)
--- 开头的 "一十" 转成 "十" , 贴近人的读法
if szNum == hzNum[2]..hzUnit[2] then
num = string.sub(num, 4, string.len(num))
end
return num
end
return removeZero(szChMoney)
end
for i = 1 ,200 do
print(numberToString(i))
end
微信搜索OnlyServer或长摁下方二维码关注技术公众号
关注后我能得到什么?
1.架构师成神之路-最新60套视频资源-【免费下载】
2.400多人的微信技术群,干净,没广告,气氛活跃
3.各类技术,项目,实战视频教程丰富,想学的都有
=长摁关注=
=回复加群进微信技术群=
=回复1024下载视频资源=