coba fungsi ini bos...
Public Function BacaIPK(Bil As Double) As String
Dim angka
BacaIPK = ""
angka = ""
cBil = Left(Format(Bil, "#.##") & "00", 4)
For i = 1 To 4
X = Mid(cBil, i, 1)
Select Case X
Case "0": angka = "Nol"
Case "1": angka = "Satu "
Case "2": angka = "Dua "
Case "3": angka = "Tiga "
Case "4": angka = "Empat "
Case "5": angka = "Lima "
Case "6": angka = "Enam "
Case "7": angka = "Tujuh "
Case "8": angka = "Delapan "
Case "9": angka = "Sembilan "
Case ",": angka = "Koma"
End Select
BacaIPK = BacaIPK & " " & angka
Next i
End Function
---------------------------------------
--- In [email protected], "Nino Guevara Ruwano"
<[EMAIL PROTECTED]> wrote:
>
> Dear All,
>
> Salam hormat buat semuanya . . :)
> Teman2 mohon bantuannya, ada yang tau module untuk terbilang yang
> bisa menyebutkan angka desimal (ada nilai dibelakang komanya)
> misal 3,42 = "tiga koma empat puluh dua"
> Terima kasih sebelumnya . .
>
> Rgds,
>
> Nino
>
