coba yang ini :
Private Function roundUp(ByVal X As Single) As Single
Dim Temp As Single
Temp = Int(X * 1)
roundUp = (Temp + IIf(X = Temp, 0, 1)) / 1
End Function
Private Sub Command1_Click()
Dim X As Single
Dim y As Integer
X = 9.1
y = roundUp(X)
MsgBox y
End Sub
selamat mencoba :)
agung prasetyo <[EMAIL PROTECTED]> wrote:
Dear all,
help dong...
mo nanya untuk fungsi round up di VB pakai apa ya ?
contoh :
x = 9.1 -- > y = 10
Untuk menghasilkan y menggunakan fungsi apa ya ?
Agung
---------------------------------
Get the Yahoo! toolbar and be alerted to new email wherever you're surfing.
[Non-text portions of this message have been removed]
---------------------------------
Park yourself in front of a world of choices in alternative vehicles.
Visit the Yahoo! Auto Green Center.
[Non-text portions of this message have been removed]
