Untuk Bapak Dewo.Cahaya, terimakasih atas pencerahannya :) Rgds,
Nino ----- Original Message ----- From: dewo.cahaya To: [email protected] Sent: Tuesday, January 15, 2008 8:21 AM Subject: [belajar-access] Re: Terbilang desimal 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 >
