ASP: rewriting numeric characters in words

Posted on 2004-04-07
Last Modified: 2012-05-04
I am trying to get a script that converts numeric characters into words

100 will be one hundred
545 will be five hundred and forty five

This should be in VB script(preferably) or Java script.

Question by:izevbaye
  • 2
LVL 57

Expert Comment

by:Pete Long
ID: 10773202
Title Convert a number into words
Keywords number, words, hundred, thousand, million
Categories Algorithms
LVL 57

Accepted Solution

Pete Long earned 25 total points
ID: 10773215
How to Get The Words for a Given Number
By using this sample code in an IIS Server, we can have a Web Service that will convert a given number into its equivalent in words. For example, if you need a code that converts a total amount such as $43.25 into words such as forty-three dollars and twenty-five cents, you can use this Web Service.

Here is the sample code for the same.

<%@ WebService Language="VB" Class="NumberToWords" %>
Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Diagnostics
Imports System.Web
Imports System.Web.Services
Imports Microsoft.VisualBasic

Public Class NumberToWords
    Inherits System.Web.Services.WebService
  <WebMethod(Description:="Gets the words for a Number", _
             EnableSession:=False)> _
    Public Function getWords(myNumber AS String) As String
       getWords = SpellNumber(myNumber)
    End Function

'Main Function
Private Function SpellNumber(MyNumber As String)
    Dim Dollars, Cents, Temp
    Dim DecimalPlace, Count

    Dim Place(9) As String
    Place(2) = " Thousand "
    Place(3) = " Million "
    Place(4) = " Billion "
    Place(5) = " Trillion "

    ' String representation of amount
    MyNumber = Convert.ToString(MyNumber)

    ' Position of decimal place 0 if none
    DecimalPlace = InStr(MyNumber, ".")
    'Convert cents and set MyNumber to dollar amount
    If DecimalPlace > 0 Then
        Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
                             "00", 2))
        MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
    End If

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

    Select Case Dollars
        Case ""
            Dollars = "zero Dollars"
        Case "One"
            Dollars = "One Dollar"
        Case Else
            Dollars = Dollars & " Dollars"
    End Select

    Select Case Cents
        Case ""
            Cents = " and zero Cents"
        Case "One"
            Cents = " and One Cent"
        Case Else
            Cents = " and " & Cents & " Cents"
    End Select

    SpellNumber = Dollars & Cents
End Function

'Converts a number from 100-999 into text
Private Function GetHundreds(MyNumber As String)
    Dim Result As String

    If Val(MyNumber) = 0 Then Exit Function
    MyNumber = Right("000" & MyNumber, 3)

    'Convert the hundreds place
    If Mid(MyNumber, 1, 1) <> "0" Then
        Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    End If

    'Convert the tens and ones place
    If Mid(MyNumber, 2, 1) <> "0" Then
        Result = Result & GetTens(Mid(MyNumber, 2))
        Result = Result & GetDigit(Mid(MyNumber, 3))
    End If

    GetHundreds = Result
End Function

'Converts a number from 10 to 99 into text
Private Function GetTens(TensText As String)
    Dim Result As String

    Result = ""           'null out the temporary function value
    If Val(Left(TensText, 1)) = 1 Then   ' If value between 10-19
        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
      Else                               ' If value between 20-99
        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

'Converts a number from 1 to 9 into text
Private Function GetDigit(Digit As String)
    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
End Class

Making This a Web Service
Open Notepad.
Copy the code shown above and paste it into Notepad.
Save the file as NumberToWords.asmx into the c:\InetPub\wwwroot folder on your system.
Run the Web Service by requesting the file in the browser (http://localhost/NumberToWords.asmx).
Check the same by giving different numbers with decimals and invoking the service.

Featured Post

Netscaler Common Configuration How To guides

If you use NetScaler you will want to see these guides. The NetScaler How To Guides show administrators how to get NetScaler up and configured by providing instructions for common scenarios and some not so common ones.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Entering a date in Microsoft Access can be tricky. A typo can cause month and day to be shuffled, entering the day only causes an error, as does entering, say, day 31 in June. This article shows how an inputmask supported by code can help the user a…
If you’re thinking to yourself “That description sounds a lot like two people doing the work that one could accomplish,” you’re not alone.
In this fifth video of the Xpdf series, we discuss and demonstrate the PDFdetach utility, which is able to list and, more importantly, extract attachments that are embedded in PDF files. It does this via a command line interface, making it suitable …
With the power of JIRA, there's an unlimited number of ways you can customize it, use it and benefit from it. With that in mind, there's bound to be things that I wasn't able to cover in this course. With this summary we'll look at some places to go…

809 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question