/ Snippet Library - View Code

Snippet details

ID: 382

Viewed: 1310

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

How to round a number to nearest 10, 100, 1000, etc

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight All'Example - round to nearest 100 Round(RatioBolus * Val(txtDW), 100) 'Put this in BAS module Public Function Round(Dose, Factor) 'Purpose: Round a dose 'Input: Dose, Factor (10, 100, 1000, etc) 'Output: Rounded dose Dim Temp As Single Temp = Int(Dose / Factor) Round = Temp * Factor End Function

No Reviews to show