数字水晶报告

Question

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

怎么做？如果账单金额为99，则显示“九十九”。但它没有将小数部分显示为'Fifty':(

Answer 1

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

这个公式可以做你想要的。

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的变量，但您可以轻松地将其更改为使用您自己的数据源字段值。