Get the average

[ooOOJaVaOOoo]

Okay, why does doing an

average = (x / y) 'where x = 500 and y = 3
average = 167 'should equal 166.6666

how can i make it return the 166 and then strip the decimal?

[kleinma]

use decimal numbers..

Dim average As Decimal = 0D
        average = (500D / 3D)
        MessageBox.Show(Math.Floor(average).ToString)

[ooOOJaVaOOoo]

what is the D for? i cant put average = (xD / yD)

Public Function GetAverage(ByVal x As Integer, ByVal y As Integer) As Integer
        Dim average As Decimal
        average = (x / y)
 
        Dim daverage As Double = Double.Parse(average)
 
        average = (Math.Floor(daverage))
        Return average
    End Function

[jmcilhinney]

Use integer division:

Dim x As Integer = 500
Dim y As Integer = 3
Dim average As Integer = x \ y

Note the use of the backslash for integer division rather than the forward slash for floating point division.

[stanav]

Use integer division:

Dim x As Integer = 500
Dim y As Integer = 3
Dim average As Integer = x \ y

Note the use of the backslash for integer division rather than the forward slash for floating point division.

Learned something today... I got a several VB.Net books, and none of them ever mention the different between the / and \

[kleinma]

what is the D for? i cant put average = (xD / yD)

Public Function GetAverage(ByVal x As Integer, ByVal y As Integer) As Integer
        Dim average As Decimal
        average = (x / y)
 
        Dim daverage As Double = Double.Parse(average)
 
        average = (Math.Floor(daverage))
        Return average
    End Function

D on the end of a number implies it is of type decimal. R is double, I is integer etc...

However Johns method of using the integer division over decimal division will get you there in less code.

[Jumpercables]

Learning is fun....