RoundUP function in Autocad vba

Submitted by timed on Tue, 01/22/2019 - 09:40

RoundUP function in Autocad vba

Function RoundUp(ByVal Value As Double)
    If Int(Value) = Value Then
        RoundUp = Value
    Else
        RoundUp = Int(Value) + 1
    End If
End Function

 

autocad vba example functions