halo mas, saya coba bantu yah!!!
klo mau seperti itu, mas harus mendifinisikan perdigitnya tetapi sebelumnya Rp.
2.825.750,- di ubah menjadi 2825750
contoh :
-----------
dim buffmoney
dim fx as integer
dim moneysay as string
buffmoney = val(2.825.750)
for fx = 1 to len(buffmoney)
select case mid(buffmoney,fx,1)
case 6
moneysay = "juta"
case 5
moneysay ="ribu"
case dan sebagainya
end select
next
lebih enak lagi definisikan kedalam tabel ms access jumlah ribuan, ratusan,
bahkan jutaan
nanti anda tinggal searching / select saja jumpah panjang digitnya, trus
digabung-gabungkan
----- Original Message ----
From: yoesgreat <[EMAIL PROTECTED]>
To: [email protected]
Sent: Wednesday, May 28, 2008 1:57:05 PM
Subject: [Programmer-VB] Konversi nilai nominal angka ke dalam bentuk teks
Mohon bantuannya ya...
saya ingin mengkonversikan nilai nominal angka yang merupakan hasil
perhitungan. untuk ditampilkan dalam bentuk teks dengan menggunakan
program visual basic.
Misalnya : Rp. 2.825.750,-
menjadi Dua Juta Delapan Ratus Dua Puluh Lima Ribu Tujuh Ratus Lima
Puluh Rupiah.
Makasih atas bantuannya yaa....
