Membulatkan Nilai Uang

Jika Anda berbelanja ke minimarket, hampir semua harga barang-barangnya tidak ada yang bulat. Dan ketika dibawa dan ditotal harganya di kasir, maka muncul nilai total harga yang tentu saja tidak pas, lalu pihak kasir memberitahukan kepada Anda nilai pembulatan dari total harga barang yang harus dibayar.Fungsi berikut ini digunakan untuk membulatkan nilai uang, sama seperti yang dilakukan oleh kasir tersebut.

Buat sebuah Module dan ketikkan :

Public Function BulatkanUang(ByVal NilaiUang As Double, Optional ByVal BatasDihapus As Integer = 0, Optional ByVal PecahanTerkecil As Integer = 100) As Double
Dim d As Double
d = NilaiUang - (Fix(NilaiUang / PecahanTerkecil) * PecahanTerkecil)
If (d = 0) Or (d <= BatasDihapus) Then
BulatkanUang = NilaiUang - d
Else
BulatkanUang = NilaiUang + (PecahanTerkecil - d)
End If
End Function

Misalkan nilai uangnya adalah 45025. Apabila nilai kelebihannya kurang dari atau sama dengan 15 maka tidak akan dihitung / dihapus, namun jika diatas 15 maka akan dihitung dengan dibulatkan ke atas. Pecahan uang terkecil yang tersedia adalah 100. Kodenya :

n = BulatkanUang(45025, 15, 100)