ceil 함수 구현

private function Ceil(x As Single, p As Integer) As Single

    '자리수 옮김

    Ceil = x * 10 ^ p

   

    '정수부분 올림하기

    Ceil = -Int(-Ceil)

    '자리수 돌려놓기

    Ceil = Ceil * 10 ^ (-p)

End Function