Saya Coba Bantu ya.....
Coba Gunakan coding dibawah ini
Text2.Text = CStr((Round(Val(Text1.Text) / 50, 0) * 50))
Semoga Membantu ^_^
God Bless You
----- Original Message -----
From: Narif Rahmat Santosa
To: [email protected]
Sent: Tuesday, May 06, 2008 7:31 AM
Subject: [Programmer-VB] FW: membulatkan bilangan ke atas dan kebawah
Maaf tadi ada kesalah code di code pertama di tulis Text2.Text =
Format(Mid(nil, 1, Len(nil) - 2) & (Source + (100 - Source)), "###,###")
seharusnya Text2.Text = Format(Mid(nil, 1, Len(nil) - 2) & (Source + (50 -
Source)), "###,###")
Mohon bantuannya
---------------------------------
From: Narif Rahmat Santosa [mailto:[EMAIL PROTECTED]
Sent: 06 Mei 2008 7:18
To: '[email protected]'
Subject: membulatkan bilangan ke atas dan kebawah
Selamat pagi semua,
Mohon kiranya para master vb bisa membantu saya neh. Saya ada kesulitan
mengenai membulatkan bilangan uang kea atas dah kebawah
Dim Source As Integer
Dim Jmldigits As Integer
Dim nil As String
Jmldigits = 0
Source = 0
Jmldigits = Len(Text1.Text)
Text2.Text = ""
If Jmldigits > 1 Then
Source = Right(Text1.Text, 2)
If Jmldigits = 2 Then
If Val(Source) <= 49 Then
Text2.Text = 50
Else
Text2.Text = 100
End If
Else
nil = Replace(Text1.Text, ".", "")
If Val(Source) <= 99 Then
Text2.Text = Format(Mid(nil, 1, Len(nil) - 2) & (Source + (100 -
Source)), "###,###")
End If
End If
Else
Text2.Text = Text1.Text
End If
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
Saya dah coba muter-muter tapi tetep lom dapet juga neh
Mohon bantuannya para master VB.
Terimakasih sebelumnya
Regards,
Narif
#ygrp-mkp { BORDER-RIGHT: #d8d8d8 1px solid; PADDING-RIGHT: 14px;
BORDER-TOP: #d8d8d8 1px solid; PADDING-LEFT: 14px; PADDING-BOTTOM: 0px; MARGIN:
14px 0px; BORDER-LEFT: #d8d8d8 1px solid; PADDING-TOP: 0px; BORDER-BOTTOM:
#d8d8d8 1px solid; FONT-FAMILY: Arial}#ygrp-mkp HR { BORDER-RIGHT: #d8d8d8
1px solid; BORDER-TOP: #d8d8d8 1px solid; BORDER-LEFT: #d8d8d8 1px solid;
BORDER-BOTTOM: #d8d8d8 1px solid}#ygrp-mkp #hd { FONT-WEIGHT: bold;
FONT-SIZE: 85%; MARGIN: 10px 0px; COLOR: #628c2a; LINE-HEIGHT: 122%}#ygrp-mkp
#ads { MARGIN-BOTTOM: 10px}#ygrp-mkp .ad { PADDING-RIGHT: 0px;
PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px}#ygrp-mkp .ad A {
COLOR: #0000ff; TEXT-DECORATION: none}
---------------------------------
Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now.
