misal text1 : angka asli
text2 : hasil pembulatan
if int(cdbl(text1.text)/5000) = cdbl(text1.text)/5000 then
text2.text = text1.text
else
text2.text = (int(cdbl(text1.text)/5000) + 1) * 5000
end if
semoga membantu.
salam,
cahyo
--- In [email protected], "focusdgtl" <[EMAIL PROTECTED]>
wrote:
>
> rekan milis.. minta advisnya donk?
>
> saya mengalami kesulitan dalam membulatkan hasil perhitungan,
> misal 146.000 menjadi 150.000, 141.000 menjadi 145.000 dst
(textbox).
> yang intinya adalah pembulatan angka lima ribu keatas.
>
> thank before..
>
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
