Question

How to round a number to a multiple of 8 in VB.NET

Answer 1

Imports System

Public Class Program
    Private Shared Function roundToMultipleOf(ByVal number As Integer, ByVal roundTo As Integer) As Integer
        Return (number + (roundTo - 1)) And Not (roundTo - 1)
    End Function

    Public Shared Sub Main(ByVal args As String())
        Console.WriteLine(roundToMultipleOf(9, 8))
        Console.WriteLine(roundToMultipleOf(19, 8))
        Console.WriteLine(roundToMultipleOf(71, 8))
    End Sub
End Class



  
  
' run:
'
' 16
' 24
' 72
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Public Class Program
    Public Shared Function roundToMultipleOf(ByVal number As Double, ByVal multipleOf As Double) As Double
        Return multipleOf * CLng(Math.Round(number / multipleOf, MidpointRounding.AwayFromZero))
    End Function

    Public Shared Sub Main(ByVal args As String())
        Console.WriteLine(roundToMultipleOf(9, 8))
        Console.WriteLine(roundToMultipleOf(19, 8))
        Console.WriteLine(roundToMultipleOf(71, 8))
    End Sub
End Class


  
  
' run:
'
' 8
' 16
' 72
'

70+ SQL courses for beginners and professionals