ลองดึงฟังก์ชัน RoundUp() ของ Excel มาใช้ดูก็ได้ครับ ดังนี้ Function RoundUpXcel(Num As Double, Num_Digits As Integer) As Double Dim objXcel As Object Set objXcel = CreateObject("Excel.Application") RoundUpXcel = objXcel.WorksheetFunction.RoundUp(Num, Num_Digits) End Function ลองใช้ดูจะได้ ? RoundUpXcel(2.00000000001,0) 3

มีวิธีที่เร็วกว่านี้มั้ยครับ รู้สึกว่ามันจะช้าอยู่นิดๆ

ลองใช้ฟังก์ชันนี้ดูก็ได้ครับ Function MyRoundUp(Num As Double) As Integer Dim X As Integer X = Int(Num) If Num - X > 0 Then MyRoundUp = X + 1 Else MyRoundUp = X End If End Function