[VB6]Number to Text conversion

codepoet · 2010-04-30T15:56:32+00:00

This function converts number to text in the range 0.00 to 999999999.99 Declarations: 'none Code: 'To a form add one text box (Text1) and one label (Label1) and one command button (command1). 'Copy the following form code and past in the form. Just run.... Private Sub Command1_Click() Label1.Caption = Number2Word(Val(Text1.Text)) End Sub Private Function Number2Word(ByVal pNum As Double) As String On Error GoTo ErrHdl Dim ar1(19) As String Dim ar2(10) As String Dim ar3(5) As String ar1(0) = "" ar1(1) = "One" ar1(2) = "Two" ar1(3) = "Three" ar1(4) = "Four" ar1(5) = "Five" ar1(6) = "Six" ar1(7) = "Seven" ar1(8) = "Eight" ar1(9) = "Nine" ar1(10) = "Ten" ar1(11) = "Eleven" ar1(12) = "Twelve" ar1(13) = "Thirteen" ar1(14) = "Fourteen" ar1(15) = "Fifteen" ar1(16) = "Sixteen" ar1(17) = "Seventeen" ar1(18) = "Eighteen" ar1(19) = "Ninteen" ar2(1) = "Ten" ar2(2) = "Twenty" ar2(3) = "Thirty" ar2(4) = "Fourty" ar2(5) = "Fifty" ar2(6) = "Sixty" ar2(7) = "Seventy" ar2(8) = "Eighty" ar2(9) = "Ninty" a

Mark Webber's B1tch
Guest

Apr 30, 2010 04:23 PM

Great share mate.. ✌

Next Oldest | Next Newest

New Reply

Possibly Related Threads...
Thread / Author	Replies	Views	Last Post
[C#] Dynamic method conversion .NET Framework-> .NET Core by debugDec 22, 2020 04:51 PM	0	228	Dec 22, 2020 04:51 PM Last Post: debug
[Python] Number ranges from string to single number lists by Fivepoint0Oct 23, 2018 05:24 PM	3	191	Oct 23, 2018 05:24 PM Last Post: Fivepoint0
[.NET] c# > vb conversion by ToxicLexxiMar 12, 2018 06:22 AM	1	181	Mar 12, 2018 06:22 AM Last Post: HFDone

View a Printable Version
Export as PDF
Subscribe to this thread

Login
Username/Email:
Password:	Lost Password?
	Remember me