Wednesday, 9 January 2013

Ceil function in VB6

VB Code:




    

  1. 
Function Ceiling(n As Double) As Long
    

    2. 

  2. 
    If Not Int(n) = n Then
    

    3. 

  3. 
        Ceiling = Int(n) + 1
    

    4. 

  4. 
    Else
    

    5. 

  5. 
        Ceiling = n
    

    6. 

  6. 
    End If
    

    7. 

  7. 
End Function
    

    8.
Posted by at

5 comments:

  1. Unknown25 May 2017 at 12:42

    This is My Function Working Perfectly
    Public Function Ceiling(MyNum As Double)
    If Round(MyNum, 0) < MyNum Then
    Ceiling = Round(MyNum + 1, 0)
    Else
    Ceiling = Round(MyNum, 0)
    End If
    End Function

    ReplyDelete
  2. Sakthivel16 June 2017 at 09:38

    Thanks....

    ReplyDelete
  3. ramzan18 September 2018 at 07:54

    Thanks

    ReplyDelete
  4. ramzan18 September 2018 at 07:56

    Check this website
    http://itcollegeall.blogspot.com
    more information learn many program

    ReplyDelete
  5. Anonymous4 March 2023 at 02:41

    Thank you So much that's helpful

    ReplyDelete

Subscribe to: Post Comments (Atom)