Programming Help

Web Development

Projects



What's Here?

  • Members: 99,788
  • Replies: 389,617
  • Topics: 58,613
  • Snippets: 2,047
  • Tutorials: 550
  • Total Online: 1,567
  • Members: 48
  • Guests: 1,519

Who's Online?
 

Code Snippets

  

Visual Basic Source Code
Welcome to Dream.In.Code
Getting VB Help is Easy!

Join 99,788 VB Programmers for FREE! Ask your question and get quick answers from experts. There are 1,567 online right now! We've got more than 500 tutorials and 2,000 snippets. Join and find out why Dream.In.Code is the #1 programming help community on the internet! Registration is fast and FREE... Join Now!




RoundUp and RoundDown functions in VB 6.0

Two simple functions that are not found in VB. Suppose you have a number '3.376'. Now when you will use the RoundUp function you will get the result as '4.0'. By using RoundDown function the result would be '3.0'. However, for .NET you could use the Math.Floor and Math.Ceiling methods

Submitted By: irtaza
Actions:
Rating:
Views: 30,307

Language: Visual Basic
Last Modified: April 14, 2005

Snippet


  1. Public Function roundDown(dblValue As Double) As Double
  2. On Error GoTo PROC_ERR
  3. Dim myDec As Long
  4.  
  5. myDec = InStr(1, CStr(dblValue), ".", vbTextCompare)
  6. If myDec > 0 Then
  7.     roundDown = CDbl(Left(CStr(dblValue), myDec))
  8. Else
  9.     roundDown = dblValue
  10. End If
  11.  
  12. PROC_EXIT:
  13.     Exit Function
  14. PROC_ERR:
  15.     MsgBox Err.Description, vbInformation, "Round Down"
  16. End Function
  17.  
  18. Public Function roundUp(dblValue As Double) As Double
  19. On Error GoTo PROC_ERR
  20. Dim myDec As Long
  21.  
  22. myDec = InStr(1, CStr(dblValue), ".", vbTextCompare)
  23. If myDec > 0 Then
  24.     roundUp = CDbl(Left(CStr(dblValue), myDec)) + 1
  25. Else
  26.     roundUp = dblValue
  27. End If
  28.  
  29. PROC_EXIT:
  30.     Exit Function
  31. PROC_ERR:
  32.     MsgBox Err.Description, vbInformation, "Round Up"
  33. End Function
  34.  

Copy & Paste

Comments


MikoMia 2008-01-09 02:52:05

*O*M*G* Ever heard of the build in Int function?! To Round Down, use Int(), as in: Dim n as Double, floor as Double n = 3.99745823 floor = Int(n) To Round Up, simply use If Int(number)number Then ceil = Int(number) + 1 Else ceil = number End If oh.. and this code is about 1000x faster..


Add comment


You must be registered and logged on to </dream.in.code> to leave comments.





Live VB Help!

VB Tutorials

Reference Sheets

VB Snippets

Bye Bye Ads

Free DIC T-Shirt

T-Shirt Example

Related Sites

Monthly Drawing

Thumb Drive

Partners

Top Contributors

Top 10 Kudos This Month
-->