Solved

ASP: rewriting numeric characters in words

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

e.g.
100 will be one hundred
545 will be five hundred and forty five

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

thanks
ehi
0
Comment
Question by:izevbaye
  • 2
4 Comments
 
LVL 57

Expert Comment

by:Pete Long
Comment Utility
Title Convert a number into words
Keywords number, words, hundred, thousand, million
Categories Algorithms
http://www.vb-helper.com/howto_number_to_words.html
0
 
LVL 57

Accepted Solution

by:
Pete Long earned 25 total points
Comment Utility
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)
        Else
            MyNumber = ""
        End If
        Count = Count + 1
    Loop

    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))
    Else
        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.
Source http://www.codeguru.com/vb/vb_internet/webservices/article.php/c4807/
0

Featured Post

What Security Threats Are You Missing?

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

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…
Although it can be difficult to imagine, someday your child will have a career of his or her own. He or she will likely start a family, buy a home and start having their own children. So, while being a kid is still extremely important, it’s also …
Viewers will learn how to properly install Eclipse with the necessary JDK, and will take a look at an introductory Java program. Download Eclipse installation zip file: Extract files from zip file: Download and install JDK 8: Open Eclipse and …
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…

771 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

10 Experts available now in Live!

Get 1:1 Help Now