Loh bilangan di situ kan udah bulat (integer)???
Kalo yg dimaksud faktor pembulatnya itu adalah dua angka terakhir mungkin bisa dengan fungsi ini:
Public Function CustomRound(myNum, limit As Integer)
'©2006 ulinuha inc.
'contoh myNum=1503
'maka major=15
'dan minor=03
Dim strNum As String '=myNum dalam bentuk string
Dim minor As String 'dua angka terakhir dari myNum
Dim major As String
myNum = Round(myNum) 'Kalo myNum desimal, kita bulatin terlebih dahulu
strNum = CStr(myNum) 'konversi ke string
'ekstraksi nilai major
If Len(strNum) > 2 Then
major = Left(strNum, Len(strNum) - 2)
Else
major = "0"
End If
'ekstraksi nilai minor
minor = Right(strNum, 2)
'lakukan pembulatan berdasarkan limit
If minor >= limit Then
major = CStr(CInt(major) + 1)
End If
'reset nilai minor
If Len(strNum) > 1 Then
minor = "00"
Else
minor = "0"
End If
'kembalikan fungsi
CustomRound = CLng(major & minor)
'©2006 ulinuha inc.
'contoh myNum=1503
'maka major=15
'dan minor=03
Dim strNum As String '=myNum dalam bentuk string
Dim minor As String 'dua angka terakhir dari myNum
Dim major As String
myNum = Round(myNum) 'Kalo myNum desimal, kita bulatin terlebih dahulu
strNum = CStr(myNum) 'konversi ke string
'ekstraksi nilai major
If Len(strNum) > 2 Then
major = Left(strNum, Len(strNum) - 2)
Else
major = "0"
End If
'ekstraksi nilai minor
minor = Right(strNum, 2)
'lakukan pembulatan berdasarkan limit
If minor >= limit Then
major = CStr(CInt(major) + 1)
End If
'reset nilai minor
If Len(strNum) > 1 Then
minor = "00"
Else
minor = "0"
End If
'kembalikan fungsi
CustomRound = CLng(major & minor)
End Function
dalifa hannum <[EMAIL PROTECTED]> wrote:
dalifa hannum <[EMAIL PROTECTED]> wrote:
Rekan2,ada yang tahu engga, untuk pembulatan angka di VB, contohnya :1503 => 15003040 => 3100Terima kasih banyakRegard,
Ulinuha
Get your own web address for just $1.99/1st yr. We'll help. Yahoo! Small Business. __._,_.___
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
![]()
SPONSORED LINKS
Indonesia phone card Programmer Indonesia tour Indonesia travel Indonesia flower
Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
__,_._,___
Kirim email ke
