Crystal reports 数字到文字水晶报告_Crystal Reports

Crystal reports 数字到文字水晶报告

crystal-reports

Crystal reports 数字到文字水晶报告,crystal-reports,Crystal Reports,我想在Crystal Report中显示99.50的账单金额如何做到这一点？如果账单金额为99，则显示“99”。但它不会将小数部分显示为“五十”：（在报告中添加一个新公式，并将语法设置为基本语法这个公式应该符合你的要求 Dim NumberAmount As Number Dim LeftOfDecimal As String Dim RightOfDecimal As String NumberAmount = 99.50 LeftOfDecimal = ToWords(Number

我想在Crystal Report中显示99.50的账单金额

如何做到这一点？如果账单金额为99，则显示“99”。但它不会将小数部分显示为“五十”：（

在报告中添加一个新公式，并将语法设置为基本语法

这个公式应该符合你的要求

Dim NumberAmount As Number

Dim LeftOfDecimal As String
Dim RightOfDecimal As String

NumberAmount = 99.50

LeftOfDecimal = ToWords(NumberAmount)
LeftOfDecimal = Left(LeftOfDecimal, InStrRev(LeftOfDecimal, " and")-1)

RightOfDecimal = ToWords(ToNumber(Mid(ToText(NumberAmount), InStr(ToText(NumberAmount), ".")+1,2)))
RightOfDecimal = Left(RightOfDecimal, InStrRev(RightOfDecimal, " and")-1)

formula = LeftOfDecimal + " and " + RightOfDecimal

我使用了一个名为

NumberAmount

的变量，但您可以很容易地将其更改为使用数据源中自己的字段值