VB6 没有Ceiling函数

是的，VB6没有内置的Ceiling函数。但是，你可以使用以下代码实现Ceiling功能：

Function Ceiling(ByVal dblNumber As Double) As Long
    If dblNumber > 0 Then
        Ceiling = Int(dblNumber + 0.99999999999998)
    Else
        Ceiling = Int(dblNumber)
    End If
End Function

这个函数将返回一个Double数的最小整数（向上取整），因为VB6的Int函数会向下取整。