Solved

Rounding of decimal to next highest whole number

Posted on 2004-09-01
14
1,222 Views
Last Modified: 2008-01-09
This code is on a asp.net page using VB

I am trying to round of a fraction to the next highest whole number or integer. I found the following code on Experts, but I keep getting an error:
 BC30519: Overload resolution failed because no accessible 'InStr' can be called without a narrowing conversion
the doucumentation says:To correct this error Specify Option Strict Off.  how do I do this?

Is there better code?
my code:  
example: intshipunit will equal 1.15 in this test, I need it to change to 2

 dim intshipunit as decimal = strtotalweight / 20
Dim x As single
Dim y() As String
Dim z As single

x = intshipunit
If InStr(1, x, ".") Then
y() = Split(x, ".")
z = x - y(0)
x = x + (1 - z)
response.write (x)
End If


0
Comment
Question by:dplsr
  • 5
  • 4
  • 3
  • +2
14 Comments
 
LVL 17

Expert Comment

by:AerosSaga
Comment Utility
In the IDE Project->Properties->build
0
 
LVL 17

Expert Comment

by:AerosSaga
Comment Utility
there you will see option explicit, option strict, and option compare you can change these settings from here.
0
 
LVL 17

Expert Comment

by:AerosSaga
Comment Utility
0
 

Author Comment

by:dplsr
Comment Utility
In the IDE Project->Properties->build

Is this something in Visual Studio?  I am not using visual studio if it is. Can i do this right on the page or in the sub?
0
 
LVL 17

Expert Comment

by:AerosSaga
Comment Utility
You can do this in the web.config file then:

<compilation> attribute

The <compilation> tag includes the following attributes:

    * defaultLanguage="C#|VB|C++" : Contains a list of language names to be used in dynamic compilation files.
    * debug="true|false" : Determines whether to compile in retail binaries or in debug binaries.
    * explicit="true|false" : Determines the setting of the Microsoft Visual Basic explicit compile option.
    * batch="true|false" : Determines whether batching is supported or not.
    * batchTimeout="number" : Determines the time-out period for batch compilation.
    * numRecompilesBeforeApprestart="number" : Determines the number of dynamic recompiles of resources that can happen before the application restarts.
    * strict="true|false" : Determines the setting of the Visual Basic strict compile option.

The code in Listing 1.6 shows compilation configuration settings:

<configuration>
   <system.web>
            <compilation defaultLanguage="C#"
                  debug="true"
                  numRecompilesBeforeAppRestart="10"
                  batchTimeout="10"
                  explicit="true"
                  strict="true"
                  batch="true"
            </compilation>
   </system.web>
</configuration>

http://www.codenotes.com/articles/articleAction.aspx?articleID=333
0
 

Author Comment

by:dplsr
Comment Utility
I set strict="false" I still get the same error
0
 
LVL 33

Accepted Solution

by:
raterus earned 500 total points
Comment Utility
Not to question the original poster of that code, but that is a horrid way to round up!

Use this instead: System.Math.Ceiling(intshipunit)

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfsystemmathclassceilingtopic.asp

0
Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

 
LVL 10

Expert Comment

by:jnhorst
Comment Utility
raterus is right (say that 10 times fast!).

InStr is old school VB and is replaced by IndexOf() in .NET, but for rounding up as you want to do, raterus' code is the way to do it.

John
0
 

Author Comment

by:dplsr
Comment Utility
Hi raterus,

this looks better than what I had, but being a semi-newbie I  to VB I can't figure out how to apply it to

intshipunit
in
dim intshipunit as decimal = strtotalweight / 20

this is all used to set shipping charges on a web site
strtotalweight will vary per order, per number of items
0
 
LVL 24

Expert Comment

by:Justin_W
Comment Utility
System.Math.Ceiling(intshipunit) will only work if the number is non-negative.  A more general solution is:
   System.Math.Max(System.Math.Ceiling(intshipunit), System.Math.Floor(intshipunit))
0
 
LVL 24

Expert Comment

by:Justin_W
Comment Utility
I.e.:
   intshipunit = System.Math.Max(System.Math.Ceiling(intshipunit), System.Math.Floor(intshipunit))
0
 

Author Comment

by:dplsr
Comment Utility
justin i should have split the points on that sorry! I did not notice the name changed!
0
 
LVL 24

Expert Comment

by:Justin_W
Comment Utility
That's OK.  I just remembered that Math.Ceiling is fine on its own unless you need the nearest whole number with the greatest absolute value.
0
 

Author Comment

by:dplsr
Comment Utility
What I need is the next highest whole number. Like 1.15  changed to 2 . so far this works great
0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

I have developed many web applications with asp & asp.net and to add and use a dropdownlist was always a very simple task, but with the new asp.net, setting the value is a bit tricky and its not similar to the old traditional method. So in this a…
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
This video gives you a great overview about bandwidth monitoring with SNMP and WMI with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're looking for how to monitor bandwidth using netflow or packet s…
This tutorial demonstrates a quick way of adding group price to multiple Magento products.

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now