【SSRS】 Convert From Number To Words
>
>
【SSRS】 Convert From Number To Words

SSRS - Convert From Number To Words

SSRS - Convert From Number To Words

With Example on how to convert from number into text in SQL Serer Reporting Services(SSRS) by using custom code.

Example- Included

No.
Title
1
Sample Code.
2
Open up Customer Code
3
Paste Copied Sample Code
4
How to use

1 - Sample Code..

Function ConvertNumToWord(ByVal InputAmount)
Dim WAmount, Temp
Dim DecimalPlace, Count
Dim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "
' Inputed Amout Represented as a String.
InputAmount = Trim(Str(InputAmount))
' Position of decimal place.
DecimalPlace = InStr(InputAmount, ".")

Count = 1
Do While InputAmount <> ""
Temp = GetHundreds(Right(InputAmount, 3))
If Temp <> "" Then WAmount = Temp & Place(Count) & WAmount
If Len(InputAmount) > 3 Then
InputAmount = Left(InputAmount, Len(InputAmount) - 3)
Else
InputAmount = ""
End If
Count = Count + 1
Loop

ConvertNumToWord = WAmount & " Only"
End Function
' Convert From amount range 100-999 into text
Function GetHundreds(ByVal InputAmount)
Dim Result As String
If Val(InputAmount) = 0 Then Exit Function
InputAmount = Right("000" & InputAmount, 3)
' conversation of hundreds place.
If Mid(InputAmount, 1, 1) <> "0" Then
Result = GetDigit(Mid(InputAmount, 1, 1)) & " Hundred "
End If
' Conversation of tens and ones place.
If Mid(InputAmount, 2, 1) <> "0" Then
Result = Result & GetTens(Mid(InputAmount, 2))
Else
Result = Result & GetDigit(Mid(InputAmount, 3))
End If
GetHundreds = Result
End Function

'Convertion From amount range 10-99 into text
Function GetTens(TensText)
Dim Result As String
Result = "" 
' Set Value for amount between 10-19
If Val(Left(TensText, 1)) = 1 Then 
Select Case Val(TensText)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
' Set Value for amount between 20-99
Else
Select Case Val(Left(TensText, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.
End If
GetTens = Result
End Function

'Convertion From amount range 1-9 into text
Function GetDigit(Digit)
Select Case Val(Digit)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function

  • 02. Open up Customer Code.

Screenshot
After you have opened up your report design view, Right click on the grey area and select Report Properties...

  • 03. Paste Copied Sample Code.

Screenshot
From the Report Properties dialog go to Code tab and paste in the copied sample code into the custom code text area and click OK.

  • 04. How to use.

Screenshot

Right Click on your Text Box that you want to use, and select Expression, inside the Set expression for : Value area key in : =Code.ConvertNumToWord(9000), 9000 is an example you may key your value or parameter value.
Result : Nine Thousand Only



Subscribe
Notify of
guest
0 Comments
Inline Feedbacks
View all comments

Search

.
Xiao. tian
.

Recent - Video

.

Recent - Post

.
Download Best WordPress Themes Free Download
Download Premium WordPress Themes Free
Download Nulled WordPress Themes
Download Premium WordPress Themes Free
free download udemy paid course
download karbonn firmware
Premium WordPress Themes Download
udemy free download
2 1 vote
Article Rating

Start typing and press Enter to search

Shopping Cart
0
Would love your thoughts, please comment.x
()
x