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

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

原创最新推荐文章于 2019-06-23 10:07:15 发布 · 1.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#报表

本文介绍了一种将小数形式的金额数值转换成中文大写金额的方法，通过判断金额的小数点位置及尾数来实现元、角、分的正确转换，并对结果进行必要的修正。

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,"零拾" ,"零壹拾")