Code Snippets

Visual Basic Source Code

Welcome to Dream.In.Code
	Become a VB Expert! Join 148,918 VB Programmers for FREE! Get instant access to thousands of VB experts, tutorials, code snippets, and more! There are 2,434 people online right now. Registration is fast and FREE... Join Now! Chat LIVE With a VB Expert

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: 37,120

Language: Visual Basic

Last Modified: April 14, 2005

Snippet

Public Function roundDown(dblValue As Double) As Double
On Error GoTo PROC_ERR
Dim myDec As Long
myDec = InStr(1, CStr(dblValue), ".", vbTextCompare)
If myDec > 0 Then
roundDown = CDbl(Left(CStr(dblValue), myDec))
Else
roundDown = dblValue
End If
PROC_EXIT:
Exit Function
PROC_ERR:
MsgBox Err.Description, vbInformation, "Round Down"
End Function
Public Function roundUp(dblValue As Double) As Double
On Error GoTo PROC_ERR
Dim myDec As Long
myDec = InStr(1, CStr(dblValue), ".", vbTextCompare)
If myDec > 0 Then
roundUp = CDbl(Left(CStr(dblValue), myDec)) + 1
Else
roundUp = dblValue
End If
PROC_EXIT:
Exit Function
PROC_ERR:
MsgBox Err.Description, vbInformation, "Round Up"
End Function

Copy & Paste

Comments
MikoMia 2008-01-09 02:52:05
OMG 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..
Mordy 2008-09-08 08:39:11
Won't anything from 3.50 to 3.99 be rounded up to 4 if you use the built-in INT function? I think that's why he made this function.
AndyEsser 2008-11-04 10:06:27
You have a problem with this function if you start having numbers so small they start getting displayed as standard form, ie 1.66e-2 since it checks for the decimal point and does go by the value.
richmassena 2008-12-22 12:04:26
you really must be joking. Parsing the string representation of a number to round it up. Try something like this: newnumber=int(number+.5)

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

Advertising | Terms of Use | Privacy Policy | About Us | Site Map

Forum Index: Programming Help | C and C++ | Visual Basic | Java | VB.NET | C# | ASP.NET | PHP | ColdFusion | Perl and Python | Ruby | Databases | Other Languages | Game Programming | Software Development | Computer Science | Industry News | Programming Tutorials | C++ Tutorials | Visual Basic Tutorials | Java Tutorials | VB.NET Tutorials | C# Tutorials | Linux Tutorials | PHP Tutorials | ColdFusion Tutorials | Windows Tutorials | HTML/JavaScript Tutorials | CSS Tutorials | Flash Tutorials | Web Promotion Tutorials | Photoshop Tutorials | Software Development Tutorials | Database Tutorials | Other Language Tutorials | ASP.NET Tutorials |

Copyright 2001-2008 MediaGroup1 LLC, All Rights Reserved
A MediaGroup1 LLC Production - Version 6.0.2.1.36
Server: secure2

Search^Updated!w00t

Over 509,000 Pages! Advanced Forum Search

Be Social

Live VB Help!

VB Tutorials

Reference Sheets

VB Snippets

DIC Chatroom

Join our IRC Chat

Bye Bye Ads

Monthly Drawing

Top Contributors

Top 10 Kudos This Month