VBA.VB6 - Fungsi Pembulatan (lebih besar atau kurang dari n digit)

Fungsi Putaran () memberikan pembulatan angka yang salah dalam bentuk berikut:
(2a + 0, 5) x 10 ^ -n (Putaran ke bawah)
Dengan kontra, angka-angka dari bentuk (2a - 0, 5) x 10 ^ -n biasanya Round setengah ke atas.
Penulis: Patrice33740
Sebagai contoh:
Putaran (0, 15, 1) = 0, 2
Putaran (0, 25, 1) = 0, 2
Putaran (0, 35, 1) = 0, 4
Putaran (0, 45, 1) = 0, 4
Fungsi pembulatan yang diberikan di bawah ini tidak memiliki anomali ini:
Putaran (0, 15, 1) = 0, 2
Putaran (0, 25, 1) = 0, 3
Putaran (0, 35, 1) = 0, 4
Putaran (0, 45, 1) = 0, 5
Putaran Fungsi Pribadi (Bilangan ByVal, Desimal ByVal) Arrondi = Int (Angka * 10 ^ Desimal + 1/2) / 10 ^ Fungsi Akhir Desimal