VB.NET - Rounding up

[Nicole]

I have a variable that I want to always be rounded up to the next .25

I am using VB.NET.

Examples:

1.1 would become 1.25
1.26 would become 1.5
1.75 would stay the same

Anyone know how to do this?

[John Scott]

http://www.freevbcode.com/ShowCode.asp?ID=1558 ?

[Nicole]

Thanks, John



I can't get that code to work for me. Possibly because I'm using .NET. Not sure, though.

If anyone could help me understand how to get that to work, it would be great.

[Nicole]

Figured out how to do this. For future reference, here it is:

This is using time and it rounds up to the next 15 minutes.

DoMath() can be replaced with any number or variable and it represents the original number of minutes (before rounding).

15 is the number to round to.

    Private Function DoBillable()
        Dim nummins As Integer
        Dim n As Double
        Dim min As Integer
        Dim tot As TimeSpan

        nummins = 15
        n = (DoMath() / nummins)
        min = Math.Truncate(n + 0.9) * nummins

        tot = New TimeSpan(0, min, 0)
        Return tot.TotalHours.ToString("F")

    End Function

There may be a more efficient way of doing this..

[Rien17]

RoundUp and RoundDown are two popular functions and i for one used to use them a lot..so when i started on VB i was pissed when they weren't around anymore...but! they are pretty easy to write yourself...basic versions at least...if you want a thing that handles time like this thread then it'll be a little awkward but for basic RoundUp and RoundDown then these two fucntions work perfectly, feel free to use and change this however you want I only ask that you at least leave my name on the "Created" line.

    ' Comment Section
    ' Purpose:    Rounds a number up
    ' Parameters: num: Double - Number to be rounded up
    ' Returns:    Integer - the number rounded up
    ' Change Log: 
    '   08-01-08: M. O'Brien - Created
    Public Function RoundUp(ByVal num As Double) As Integer
        Try
            'Temp variable to hold the decimal portion of the parameter
            Dim temp As Double
            'Get the decimal portion
            temp = num - Math.Truncate(num)
            'If there is a decimal portion then we add 1 to force it to round up
            num = IIf(temp > 0, num + 1, num)
            'return the truncated version of the double which should be the number rounded up
            Return Math.Truncate(num)
        Catch ex As Exception
            MessageBox.Show("Error occured in: " & ex.StackTrace & vbCrLf & vbCrLf & "Error: " & ex.Message, _
                "Error.", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return Nothing
        End Try
    End Function
    ' Comment Section
    ' Purpose:    Rounds a number down
    ' Parameters: num: Double - Number to be rounded down
    ' Returns:    Integer - the number rounded down
    ' Change Log: 
    '   08-01-08: M. O'Brien - Created
    Public Function RoundDown(ByVal num As Double) As Integer
        Try
            'return the truncated version of the double which should be the number rounded down
            Return Math.Truncate(num)
        Catch ex As Exception
            MessageBox.Show("Error occured in: " & ex.StackTrace & vbCrLf & vbCrLf & "Error: " & ex.Message, _
                "Error.", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return Nothing
        End Try
    End Function