coba gunakan fungsi ini : tinggal modifi sedikit sesuai kebutuhan ..
Function roundkan(angka)
Dim bil_1, bil_2
bil_1 = Val(str(Round(angka, 0))) - Val(Right(Trim(str(Round(angka, 0))), 2))
bil_2 = angka - bil_1
If bil_2 >= 50 Then
roundkan = angka + (100 - bil_2)
Else
roundkan = angka - bil_2
End If
End Function
Terima Kasih
Rudi Hartono Simamora, S.kom
Teman-teman VBers
Saya ingin membulatkan bilangan yang merupakan nilai uang, misal
Rp. 56735 menjadi Rp. 56750
atau
Rp. 56786 menjadi Rp. 56800
Bagimana yah koding programmnya? Thanks atas perhatiannya.
Recent Activity
a.. 23New Members
b.. 1New Files
Visit Your Group
Y! Messenger
Want a quick chat?
Chat over IM with
group members.
Find helpful tips
for Moderators
on the Yahoo!
Groups team blog.
Yahoo! Groups
Parenting Zone
Share experiences
with other parents.
.
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.516 / Virus Database: 269.19.11/1242 - Release Date: 1/24/2008
8:32 PM
[Non-text portions of this message have been removed]
