Virtual Developer Workshop: Containerized Development with Docker

Environment: .NET, Visual Basic, Web Services


This sample code describes a Web Service through which a client can get the equivalent of a number in words. This can be used in accounting packages, invoices, and so forth.


The following items describe the recommended hardware, software, network infrastructure, skills, prior knowledge, and service packs you will need.

  • Windows 2000 Server
  • IIS version 5.0
  • Internet Explorer 5.5 or 6.0

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

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


For more information about how to write and use Web Services in your Web application development, browse to the following MSDN Web site: http://msdn.microsoft.com/webservices/.


  • ur a stress saver

    Posted by Legacy on 12/03/2003 08:00am

    Originally posted by: jedv_knight

    With such a complete code as yours in coming up with this program, you saved me from a harsh probably stressing project for our midterms in programming 1. thanks a booleans!! keep posting your codes aight.. 

  • words for numbers

    Posted by Legacy on 03/11/2003 08:00am

    Originally posted by: preeti

    Nice job but for converting into rupees this will not work since it uses lac system if u can provide further help then i will be grateful thanx

  • Good effort but is this necessary?

    Posted by Legacy on 12/04/2002 08:00am

    Originally posted by: mimic

    Sorry, I shouldn't be thrashing on good will that willing to provide the community with some good code; however, after I read this one I have to ask myself just WTF is this?  I am sure that almost everyone who wrote code before have already done something like this.  This code is merely a demo for using CASE loop plus some misc string functions in VB which, IMO, provides almost nothing technical to it at all.  Sure there are people who just started to learn VB will find this helpful but compare to all the posts I have seen so far, this one is off by far...

    However, during this chirtmas season I appreciate your effort to share with us. May be we should start putting skill ratings on articles. In conclusion, you are still better than me for I am so darn lazy that I never successfully pull myself together to put up anything meaningful. =)


  • You must have javascript enabled in order to post comments.

Leave a Comment
  • Your email address will not be published. All fields are required.

Most Popular Programming Stories

More for Developers

RSS Feeds

Thanks for your registration, follow us on our social networks to keep up-to-date