Pembulatan vers 2

Pada Thread sebelumnya saya sudah pernah posting tentang Pembulatan angka bilangan..
Nah kali ini saya akan memberikan Thread Pembulatan versi 2, pada versi 2 ini merupakan pengembangan coding pada Thread pembulatan pertama..

Oke langsung saja tanpa basa basi nanti jadi basi saya akan berikan gambaran sedikit..
pada pembuatan sebuah program mungkin kita sering menemui angka hasil bagi seperti berikut Rp. 2.550.555 , Hmm kalo angka seperti ini kayanya kurang enak dilihat dan menyusahkan si user saat pembuatan laporan, nah sekarang saya akan membuat pembulatan seperti berikut :

angka sebelum Pembulatan 2.550.555

angka sesudah Pembulatan 2.551.000

Berikut Codingnya:

Public Function Pembulatan() As Currency
Dim angsuran As Double
Dim bulat As Currency

If Right(Round(angsuran, 3), 3) <> "000" Then
bulat = (Mid(angsuran, 1, 3) + 1) & "000"
Else
bulat = angsuran
End If

Pembulatan = bulat
End Function


Mudahkan..??

Selamat Mencoba..
Semoga Bermanfaat yah...

Posted in: source code vb