水晶报表--金额转换成中文

最新推荐文章于 2019-06-23 10:07:15 发布

jzdzhiyun

最新推荐文章于 2019-06-23 10:07:15 发布

阅读量1.2k

点赞数

文章标签：报表

本文链接：https://blog.csdn.net/jzdzhiyun/article/details/5100767

版权

dim Toand as number
dim FirstPart as string
dim secondpart as string
dim thirdpart as string
dim result as string
dim value as Number
let value = round(106.8,2)

Toand = InStr(Towords(value),"点")

if toand=0 then
FirstPart = ToWords(Truncate(value)) + "元整"
secondpart=""
thirdpart=""
else
if right(totext(value),1)="0" then
  FirstPart = Left(ToWords(Truncate(value)), ToAnd-1) + "元零"
  SecondPart = left(ToWords((value-Truncate(value)) * 10) ,1)+ "角整"
  thirdPart=""
else
  FirstPart = Left(ToWords(Truncate(value)), ToAnd-1) + "元"
  SecondPart = left(ToWords((value-Truncate(value)) * 10) ,1)+ "角"
  thirdPart=right(ToWords((value-Truncate(value)) * 100) ,1)+ "分"
end if
end if

if left(firstpart,1) = "拾" then
firstpart = "壹" + firstpart
end if

result = Replace (firstpart+secondpart+thirdpart,"佰拾" ,"佰壹拾")
result = Replace(result,"零角","零")
formula= Replace (result,"零拾" ,"零壹拾")