Tolong benerin konversi angka ke huruf gan

[Braincode]

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



</div>