Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4,VB5,VB6,VBS
Expertise: Intermediate
Feb 26, 2000

NumberToWords - Convert a number into its string representation

' Convert a number into its textual equivalent.
' 
' Pass True in the second argument if you want a null string when 
' zero is passed.
' This is a recursive routine that is probably the most concise
' routines that solves the problem

Function NumberToWords(ByVal Number As Long, Optional BlankIfZero As Boolean) _
    As String
    Select Case Number
        Case 0
            NumberToWords = IIf(BlankIfZero, "", "Zero")
        Case 1 To 19
            NumberToWords = Choose(Number, "One", "Two", "Three", "Four", _
                "Five", "Six", "Seven", "Eight", "Nine", "Ten", "Eleven", _
                "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", _
                "Seventeen", "Eighteen", "Nineteen")
        Case 20 To 99
            NumberToWords = Choose(Number \ 10 - 1, "Twenty", "Thirty", _
                "Fourty", "Fifty", "Sixty", "Seventy", "Eighty", _
                "Ninety") & NumberToWords(Number Mod 10, True)
        Case 100 To 999
            NumberToWords = NumberToWords(Number \ 100) & "Hundred" & IIf _
                (Number >= 200, "s", "") & NumberToWords(Number Mod 100, True)
        Case 1000 To 999999
            NumberToWords = NumberToWords(Number \ 1000) & "Thousand" & IIf _
                (Number >= 2000, "s", "") & NumberToWords(Number Mod 1000, True)
        Case 1000000 To 999999999
            NumberToWords = NumberToWords(Number \ 1000000) & "Million" & IIf _
                (Number >= 2000000, "s", "") & NumberToWords(Number Mod 1000000, _
                True)
        Case Is >= 1000000000
            NumberToWords = NumberToWords(Number \ 1000000000) & "Billion" & _
                IIf(Number >= 2000000000, "s", "") & NumberToWords(Number Mod _
                1000000000, True)
    End Select
End Function
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

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