Berarti saya simpulkan kalo jaraknya dari 0 ke 25 dibulatkan kebawah, kalo
lebih dari 25 dibulatkan ke atas.
Gunakan Fungsi ini:
Function Pembulatan50(ByVal NilaiAsli As Long) As Long
SisaBagi50 = NilaiAsli Mod 50
Bagi50Integer = NilaiAsli \ 50
If SisaBagi50 <= 25 Then
Tambahan = 0
Else
Tambahan = 50
End If
Pembulatan50 = (Bagi50Integer * 50) + Tambahan
End Function
Cara pakenya:
Misal Text1 untuk NilaiAsli dan Text2 untuk hasilnya.
Maka Text2.Text = Pembulatan50(Text1.Text)
On 5/6/08, Narif Rahmat Santosa <[EMAIL PROTECTED]> wrote:
>
> Code ini hanya membulatkan ke bilangan 50, misalnya saya punya Nilai
> 16.535 maka Hasilnya akan 16.550 ini benar.
>
> Tetapi jika saya mempunyai Nilai 16.585 maka hasilnya tidak jadi 16.600,
> hasilnya tetep 16.550
>
> <[EMAIL PROTECTED]>
> .
>
>
>
