Bukan mas, 0-49 jadi 50 dan 51-99 jadi 100
Misal 1. 1.435 jadi 1.450
2. 1.451 jadi 1.500
Begitu, mohon pencerahnnya
_____
From: [email protected] [mailto:[EMAIL PROTECTED]
On Behalf Of Edy.WIYONO
Sent: 07 Mei 2008 7:36
To: [email protected]
Subject: Re: [Programmer-VB] membulatkan bilangan ke atas dan kebawah
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 <santosa_nrs@
<mailto:[EMAIL PROTECTED]> yahoo.co.id> 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
<mailto:[EMAIL PROTECTED]>
.
