Visual Basic Function to Convert Numeric to String Format

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

This visual basic programming function that convert the numeric value into string format. This code can be use in Accounting System or Payroll System in printing checks the amount in word format.

Please copy this function in module area and make a code in form, please check the code below to call this function.

In Form1 please add control Text1.Text, Text2.Text and 1 command button, double the command1 button.

Code like this




 Command1_Click

 'Put the result in Text1.Text

 Text1.Text = NumToString(Text2.Text)  'Note : You may also validate Text2 into numbers only.

 End Sub

'Function to Convert the Numeric Value into string format.

Public Function NumToString(ByVal nNumber As Currency) As String

Dim bNegative As Boolean
 Dim bHundred As Boolean

If nNumber < 0 Then
 bNegative = True
 End If

nNumber = Abs(Int(nNumber))

If nNumber < 1000 Then     If nNumber  100 > 0 Then
 NumToString = NumToString & _
 NumToString(nNumber  100) & " hundred"
 bHundred = True
 End If
 nNumber = nNumber - ((nNumber  100) * 100)
 Dim bNoFirstDigit As Boolean
 bNoFirstDigit = False
 Select Case nNumber  10
 Case 0
 Select Case nNumber Mod 10
 Case 0
 If Not bHundred Then
 NumToString = NumToString & " zero"
 End If
 Case 1: NumToString = NumToString & " one"
 Case 2: NumToString = NumToString & " two"
 Case 3: NumToString = NumToString & " three"
 Case 4: NumToString = NumToString & " four"
 Case 5: NumToString = NumToString & " five"
 Case 6: NumToString = NumToString & " six"
 Case 7: NumToString = NumToString & " seven"
 Case 8: NumToString = NumToString & " eight"
 Case 9: NumToString = NumToString & " nine"
 End Select
 bNoFirstDigit = True
 Case 1
 Select Case nNumber Mod 10
 Case 0: NumToString = NumToString & " ten"
 Case 1: NumToString = NumToString & " eleven"
 Case 2: NumToString = NumToString & " twelve"
 Case 3: NumToString = NumToString & " thirteen"
 Case 4: NumToString = NumToString & " fourteen"
 Case 5: NumToString = NumToString & " fifteen"
 Case 6: NumToString = NumToString & " sixteen"
 Case 7: NumToString = NumToString & " seventeen"
 Case 8: NumToString = NumToString & " eighteen"
 Case 9: NumToString = NumToString & " nineteen"
 End Select
 bNoFirstDigit = True
 Case 2: NumToString = NumToString & " twenty"
 Case 3: NumToString = NumToString & " thirty"
 Case 4: NumToString = NumToString & " forty"
 Case 5: NumToString = NumToString & " fifty"
 Case 6: NumToString = NumToString & " sixty"
 Case 7: NumToString = NumToString & " seventy"
 Case 8: NumToString = NumToString & " eighty"
 Case 9: NumToString = NumToString & " ninety"
 End Select
 If Not bNoFirstDigit Then
 If nNumber Mod 10 <> 0 Then
 NumToString = NumToString & "-" & _
 Mid(NumToString(nNumber Mod 10), 2)
 End If
 End If
 Else
 Dim nTemp As Currency
 nTemp = 10 ^ 12 'trillion
 Do While nTemp >= 1
 If nNumber >= nTemp Then
 NumToString = NumToString & _
 NumToString(Int(nNumber / nTemp))
 Select Case Int(Log(nTemp) / Log(10) + 0.5)
 Case 12: NumToString = NumToString & " trillion"
 Case 9: NumToString = NumToString & " billion"
 Case 6: NumToString = NumToString & " million"
 Case 3: NumToString = NumToString & " thousand"
 End Select

nNumber = nNumber - (Int(nNumber / nTemp) * nTemp)
 End If
 nTemp = nTemp / 1000
 Loop
 End If

If bNegative Then
 NumToString = " negative" & NumToString
 End If

End Function

Public Function DollarToString(ByVal nAmount As Currency) As _
 String

Dim nDollar As Currency
 Dim nCent As Currency

nDollar = Int(nAmount)
 nCent = (Abs(nAmount) * 100) Mod 100

DollarToString = NumToString(nDollar) & " dollar"

If Abs(nDollar) <> 1 Then
 DollarToString = DollarToString & "s"
 End If

DollarToString = DollarToString & " and" & _
 NumToString(nCent) & " cent"

If Abs(nCent) <> 1 Then
 DollarToString = DollarToString & "s"
 End If
 

End Function

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Visual Basic Function to Convert Numeric to String Format, Diterbitkan oleh scodeaplikasi pada Sabtu, 05 November 2011. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.