Hitung rupiah dalam pecahan nominal

Dear para Master dan rekan,
Perkenalkan saya baru di dunia pemrograman access, mohon bantuannya untuk memecahkan problem hitung rupiah dalam pecahan nominal.

Honor Sri Purwanti sebesar Rp 1.225.600 (terlampir file .xls dengan function rounddown)
terdiri dari pecahan nominal:
100.000=12
50.000=0
20.000=1
10.000=0
5.000=1
2.000=0
1.000=0
500=1
200=0
100=1

50=0

Atas attensi para Master dan rekan saya ucapkan banyak terima kasih.

Solusinya:

New Form

Buat :  New Form,  Textbox Nilai name txtNilai, Textbox 100.000 s/d 50  name text2 sd text21 dengan kondisi (Control source unbound).

behind the code

buat Command Button dengan name btnProses, nah di sini buat Event sbb:

Private Sub btnProses_Click()

ratusribu = Int(Val(txtNilai) / 100000)
TratusRibu = ratusribu * 100000
Text2 = ratusribu

limaPuluhRibu = Int((Val(txtNilai) – TratusRibu) / 50000)
TlimaPuluhRibu = limaPuluhRibu * 50000
Text4 = limaPuluhRibu

duaPuluhRibu = Int((Val(txtNilai) – (TratusRibu + TlimaPuluhRibu)) / 20000)
tduaPuluhRibu = duaPuluhRibu * 20000
Text6 = duaPuluhRibu

sepuluhribu = Int((Val(txtNilai) – (TratusRibu + TlimaPuluhRibu + tduaPuluhRibu)) / 10000)
TsePuluhRibu = sepuluhribu * 10000
Text8 = sepuluhribu

limaribu = Int((Val(txtNilai) – (TratusRibu + TlimaPuluhRibu + tduaPuluhRibu + TsePuluhRibu)) / 5000)
TlimaRibu = limaribu * 5000
Text10 = limaribu

duaribu = Int((Val(txtNilai) – (TratusRibu + TlimaPuluhRibu + tduaPuluhRibu + TsePuluhRibu + TlimaRibu)) / 2000)
TduaRibu = duaribu * 2000
Text12 = duaribu

seribu = Int((Val(txtNilai) – (TratusRibu + TlimaPuluhRibu + tduaPuluhRibu + TsePuluhRibu + TlimaRibu + TduaRibu)) / 1000)
Tseribu = seribu * 1000
Text14 = seribu

Limaratus = Int((Val(txtNilai) – (TratusRibu + TlimaPuluhRibu + tduaPuluhRibu + TsePuluhRibu + TlimaRibu + TduaRibu + Tseribu)) / 500)
TLimaratus = limaribu * 500
Text16 = Limaratus

seratus = Int((Val(txtNilai) – (TratusRibu + TlimaPuluhRibu + tduaPuluhRibu + TsePuluhRibu + TlimaRibu + TduaRibu + Tseribu + TLimaratus)) / 100)
Tseratus = seratus * 100
Text18 = seratus

limapuluh = Int((Val(txtNilai) – (TratusRibu + TlimaPuluhRibu + tduaPuluhRibu + TsePuluhRibu + TlimaRibu + TduaRibu + Tseribu + TLimaratus + Tseratus)) / 50)
Tlimapuluh = limapuluh * 50
Text21 = limapuluh

End Sub

About Sumiyanto Surabaya

http://bajajbekas.wordpress.com/ berdiri sejak 7 Mei 2009. Termotivasi untuk menghabiskan stock barang tarikan dengan metode pemasaran yang konvensional memakan banyak pikiran, tenaga, dan dana untuk kampanye melalui media koran lokal yang hanya berdurasi 1-3 hari saja. Tidak cukup waktu untuk menghabiskan seluruh stock unit tarikan yang ada. Untuk alasan itulah media ini berdiri menjembatani bagi peminat motor khususnya bajaj untuk mendapatkan informasi yang tepat, tempat yang tepat, motor yang tepat. Tidak lebih. Dikelola oleh Sumiyanto, Goal Keeper Perusahaan Finance di Wilayah Jl. Jemur Andayani 50, Ruko Surya Inti Permata D 10-11, Surabaya, 031-72472523, 081 246 83700 https://cakyanto.wordpress.com/ Belajar tentang pemrograman database berbasis Ms Access

Posted on November 19, 2010, in Tutorial Ms Access. Bookmark the permalink. 2 Komentar.

  1. siippp

    thx thx thx

    tanya dong…. kalo untuk pembulatan misal 550 dibulatkan ke bawah jd 500, kalo 551 dibulatkan ke atas jadi 600 gmn ya? pake ms access tentunya.

    thx

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: