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

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