Tolong benerin konversi angka ke huruf gan
 

begini cerita nya gan

gw mau konversi bilangan ke huruf

misalnya 2312 jadi "Dua Ribu Tiga Ratus Dua Belas"

nah kl yang itu uda bisa

cuman kalo misalkan -2312 jadi "Minus Dua Ribu Tiga Ratus Dua Belas"

nah ini yang ga gw bisa gan, satu lagi kalo misalkan 2,3 jadi "Dua Koma Tiga"

itu gimana ya kira2 ?




Spoiler for Coding:






Function konversi(ByVal nilai As Double) As String

Dim satuan As Variant

satuan = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", _

"Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")

Select Case nilai

Case 0 To 11

konversi = satuan(Fix(nilai))

Case 12 To 19

konversi = konversi(nilai Mod 10) + " Belas"

Case 20 To 99

konversi = konversi(Fix(nilai / 10)) + " Puluh " + _

konversi(nilai Mod 10)

Case 100 To 199

konversi = "Seratus " + konversi(nilai - 100)

Case 200 To 999

konversi = konversi(Fix(nilai / 100)) + " Ratus " + _

konversi(nilai Mod 100)

Case 1000 To 1999

konversi = "Seribu " + konversi(nilai - 1000)

Case 2000 To 999999

konversi = konversi(Fix(nilai / 1000)) + " Ribu " + _

konversi(nilai Mod 1000)

Case Else

konversi = "Minus"



End Select

End Function



Private Sub txtInput_Change()

txtHasil.Text = konversi(Val(txtInput.Text))

End Sub













tolong ya gan ilmu nya

ane udah stack neh

:D

</div>