TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
 Specialized Dev Zones Research Center eBook Library .NET Java C++ Web Dev Architecture Database Security Open Source Enterprise Mobile Special Reports 10-Minute Solutions DevXtra Blogs Slideshow

 Home » Tip Bank » .NET » VB.NET » String Manipulation
Language: VB4,VB5,VB6,VBS
Expertise: Intermediate
Feb 26, 2000

### WEBINAR:On-Demand

Building the Right Environment to Support AI, Machine Learning and Deep Learning

# 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

 Submit a Tip Browse ".NET" Tips Browse All Tips
Comment and Contribute

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

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