number to wordsクリスタルレポート

Question

クリスタルレポートに請求金額99.50をワードで表示したいと思います。

これを行う方法？請求額が99の場合、 '99'が表示されます。しかし、それは「五」:(

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という変数を使用しましたが、データソースから独自のフィールド値を使用するように簡単に変更できます。