number to words 크리스탈 리포트

Question

크리스탈 리포트에 청구서 금액 99.50을 단어로 표시하고 싶습니다.

어떻게 하시겠습니까? 청구 금액이 99 인 경우 '90 아홉'로 표시됩니다. 하지만 '쉰':(

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이라는 변수를 사용했지만 데이터 소스에서 자신의 필드 값을 사용하도록 쉽게 변경할 수 있습니다.