code181a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 11 行

Public Function Round_Up(ByVal ToBeRounded As Double) As Double
  Round_Up = Int(ToBeRounded) + 1
End Function

Public Sub Main()
  Debug.Print "The Round_Up of 1.9 is: ", Round_Up(1.9)
  Debug.Print "The Round_Up of 2.1 is: ", Round_Up(2.1)
  Debug.Print "The Round_Up of -2.1 is: ", Round_Up(-2.1)
  Debug.Print "The Round_Up of -2.9 is: ", Round_Up(-2.9)
End Sub