Округление.

[oskolok_vatbI]

Скажите, как округлять значения до десятых, чтобы дробная часть всегда состояла из четного числа, например:
23.018 --> 23.0
23.107 --> 23.2
23.274 --> 23.2
23.174 --> 23.2
Это и есть банковское округление ? Если да, то какая функция его выполняет (если, вообще, такая есть) ? Спасибо.

[Dmitriy2003]

Это и есть банковское округление ?

Банк Сатурна ?

Код: Выделить всё

Console.WriteLine("{0}", Math.Round(23.018, 0-[15], MidpointRounding.ToEven | MidpointRounding.AwayFromZero));
Console.WriteLine("{0}", Math.Round(23.107, 0-[15], MidpointRounding.ToEven | MidpointRounding.AwayFromZero));
Console.WriteLine("{0}", Math.Round(23.275, 0-[15], MidpointRounding.ToEven | MidpointRounding.AwayFromZero));
Console.WriteLine("{0}", Math.Round(23.174, 0-[15], MidpointRounding.ToEven | MidpointRounding.AwayFromZero));


[oskolok_vatbI]

Что-то не совсем понял.
MidpointRounding - для чисел которые находятся посередине. И число 23.107 округляется до 23.1, а мне нужно чтобы стало 23.2.

[FireFenix]

Код: Выделить всё

Dim m As Decimal = 23.107
MsgBox(Math.Ceiling(m * 10) / 10)

+MidpointRounding.ToEven

[iGrok]

И нет, это не банковское округление. Там всё немного по другому.

[Admiralisimys]

А как вам такой подход?

Код: Выделить всё

Dim iMass() As Single = {23.018, 23.107, 23.274, 23.174}
For i As Integer = 0 To iMass.Length - 1
    Console.Write(iMass(i))
    iMass(i) *= 10
    iMass(i) = Math.Truncate(iMass(i))
    If (iMass(i) Mod 2) Then
        iMass(i) += 1
    End If
    iMass(i) /= 10
    Console.WriteLine(" --> " & iMass(i))
Next

Сначала переносим интересующую десятую к целым, помножив на 10. После отбрасываем все остальные числа после запятой, применив округление Math.Truncate().
Если число уже парное разделить его на 10, дабы вернуть к первоначальному порядку с запятой, если не парное, предварительно прибавляем единицу.
Результат работы программы

23,018 --> 23
23,107 --> 23,2
23,274 --> 23,2
23,174 --> 23,2

[oskolok_vatbI]

Я сделал так:

Код: Выделить всё

        Dim m As Double = 23.018
        Dim Res As Double
        If Math.Ceiling(m * 10) Mod 2 = 0 Then
            Res = Math.Ceiling(m * 10) / 10
        Else
            Res = (Math.Ceiling(m * 10) - 1) / 10
        End If


[Alec]

а если разделить на два, округлить и умножить на два?