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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
base64 decode encode 12 122
How can i compile this github project?? 2 76
Hide vba in gp 7 83
Rubik's Cube Code for Effective Presentation 3 41
I know it’s not a new topic to discuss and it has lots of online contents already available over the net. But Then I thought it would be useful to this site’s visitors and can have online repository on vim most commonly used commands. This post h…
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 fourth video of the Xpdf series, we discuss and demonstrate the PDFinfo utility, which retrieves the contents of a PDF's Info Dictionary, as well as some other information, including the page count. We show how to isolate the page count in a…
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…

867 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

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now