Dim Val As Double = 123.1
Dim Lng As Long = Math.Ceiling(Val)

执行后变量Lng的值将等于124。