Dear Sir ,
I'm Trying to remove extra space with VB.NET
Please Guide me
Example 1
TOTAL INVOICE : Rp 250.000,00
DOWN PAYMENT :
'Extra Space in txtvalueinwords
Dua Ratus Empat Puluh Ribu Rupiah
'in lblbalance
Rp 240.000,00
Example 2
format becomes lost in txttotalinvoice when i make txtdownpayment empty
TOTAL INVOICE : Rp 250.000,00
DOWN PAYMENT :
Dua Ratus Empat Puluh Sembilan Ribu Sembilan Ratus Sembilan Puluh Sembilan Rupiah
Imports System.Globalization
Public Class Form5
Public Function Terbilang(ByVal nilai As Integer) As String
Dim bilangan As String() = {"", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas"}
If nilai < 12 Then
Return " " & System.Text.RegularExpressions.Regex.Replace(bilangan(CInt(nilai)), "^\s+|\s+$", " ")
ElseIf nilai < 20 Then
Return System.Text.RegularExpressions.Regex.Replace(Terbilang(nilai - 10) & " Belas", "^\s+|\s+$", " ")
ElseIf nilai < 100 Then
Return System.Text.RegularExpressions.Regex.Replace((Terbilang(CInt((nilai \ 10))) & " Puluh") + Terbilang(nilai Mod 10), "^\s+|\s+$", " ")
ElseIf nilai < 200 Then
Return System.Text.RegularExpressions.Regex.Replace(" Seratus" & Terbilang(nilai - 100), "^\s+|\s+$", " ")
ElseIf nilai < 1000 Then
Return System.Text.RegularExpressions.Regex.Replace((Terbilang(CInt((nilai \ 100))) & " Ratus") + Terbilang(nilai Mod 100), "^\s+|\s+$", " ")
ElseIf nilai < 2000 Then
Return System.Text.RegularExpressions.Regex.Replace(" Seribu" & Terbilang(nilai - 1000), "^\s+|\s+$", " ")
ElseIf nilai < 1000000 Then
Return System.Text.RegularExpressions.Regex.Replace((Terbilang(CInt((nilai \ 1000))) & " Ribu") + Terbilang(nilai Mod 1000), "^\s+|\s+$", " ")
ElseIf nilai < 1000000000 Then
Return System.Text.RegularExpressions.Regex.Replace((Terbilang(CInt((nilai \ 1000000))) & " Juta") + Terbilang(nilai Mod 1000000), "^\s+|\s+$", " ")
ElseIf nilai < 1000000000000 Then
Return System.Text.RegularExpressions.Regex.Replace((Terbilang(CInt((nilai \ 1000000000))) & " Milyar") + Terbilang(nilai Mod 1000000000), "^\s+|\s+$", " ")
ElseIf nilai < 1000000000000000 Then
Return System.Text.RegularExpressions.Regex.Replace((Terbilang(CInt((nilai \ 1000000000000))) & " Trilyun") + Terbilang(CInt(nilai Mod 1000000000000)), "^\s+|\s+$", " ")
Else
Return ""
End If
End Function
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim Valuetotalinvoice As Integer = CInt(250000)
Dim Valuedownpayment As Integer = 0
Integer.TryParse(txttotalinvoice.Text, Valuetotalinvoice)
Integer.TryParse(txtdownpayment.Text, Valuedownpayment)
Dim culture As CultureInfo = CultureInfo.GetCultureInfo("id-ID")
Dim numberFormat As NumberFormatInfo = CType(culture.NumberFormat.Clone(), NumberFormatInfo)
numberFormat.CurrencySymbol = "Rp "
txttotalinvoice.Text = String.Format(numberFormat, "{0:C}", CInt(250000))
txttotalinvoice.ReadOnly = True
txtvalueinwords.ReadOnly = True
Dim UserInput As Integer
If Integer.TryParse(txtdownpayment.Text, UserInput) Then
txtvalueinwords.Text = Terbilang(CInt(Valuetotalinvoice) - CInt(Valuedownpayment)) + " Rupiah"
End If
End Sub
Private Sub txtdownpayment_KeyUp(sender As Object, e As KeyEventArgs) Handles txtdownpayment.KeyUp
txttotalinvoice.Text = txttotalinvoice.Text.Replace("Rp ", "").Replace(",00", "").Replace(".", "")
If Not String.IsNullOrEmpty(txtdownpayment.Text) Then
Dim Valuedownpayment As Integer = 0
Dim Valuetotalinvoice As Integer = 0
Integer.TryParse(txtdownpayment.Text, Valuedownpayment)
Integer.TryParse(txttotalinvoice.Text, Valuetotalinvoice)
Dim UserInput As Integer
Dim culture As CultureInfo = CultureInfo.GetCultureInfo("id-ID")
Dim numberFormat As NumberFormatInfo = CType(culture.NumberFormat.Clone(), NumberFormatInfo)
numberFormat.CurrencySymbol = "Rp "
lblbalance.Text = String.Format(numberFormat, "{0:C}", Convert.ToInt32(Valuetotalinvoice - Valuedownpayment))
txttotalinvoice.Text = String.Format(numberFormat, "{0:C}", Valuetotalinvoice)
If Integer.TryParse(txtdownpayment.Text, UserInput) Then
txtvalueinwords.Text = Terbilang(CInt(Valuetotalinvoice) - CInt(Valuedownpayment)) + " Rupiah"
End If
End If
End Sub
Private Sub textbox(sender As Object, e As EventArgs) Handles txtdownpayment.TextChanged
txttotalinvoice.Text = txttotalinvoice.Text.Replace("Rp ", "").Replace(",00", "").Replace(".", "")
If Not String.IsNullOrEmpty(txtdownpayment.Text) Then
Dim Valuedownpayment As Integer = 0
Dim Valuetotalinvoice As Integer = 0
Integer.TryParse(txtdownpayment.Text, Valuedownpayment)
Integer.TryParse(txttotalinvoice.Text, Valuetotalinvoice)
Dim UserInput As Integer
Dim culture As CultureInfo = CultureInfo.GetCultureInfo("id-ID")
Dim numberFormat As NumberFormatInfo = CType(culture.NumberFormat.Clone(), NumberFormatInfo)
numberFormat.CurrencySymbol = "Rp "
lblbalance.Text = String.Format(numberFormat, "{0:C}", Convert.ToInt32(Valuetotalinvoice - Valuedownpayment))
txttotalinvoice.Text = String.Format(numberFormat, "{0:C}", Valuetotalinvoice)
If Integer.TryParse(txtdownpayment.Text, UserInput) Then
txtvalueinwords.Text = Terbilang(CInt(Valuetotalinvoice) - CInt(Valuedownpayment)) + " Rupiah"
End If
End If
End Sub
End Class
