Округление числа до 50

[AndrewMarcovich]

Необходимо округлять дробные числа в большую сторону до 50. Типа 300,350,750 и т.д. Подумал сначала round'om а потом по 1 в цикле прибавлять,но как потом определить,что на 50 нацело делится?

[alibek]

Round(...,-1)

[AndrewMarcovich]

invalid procedure call or argument при round(380,-1):((Какие ещё могут быть варианты?!

[alibek]

Fix(/100)*100

[AndrewMarcovich]

Сделал round(380/50,0)*50!Теперь работает!!!:)

[GB826]

(380 \ 50) * 50

можно и без round

[Amed]

Нельзя

[Viper]

почему нельзя?

380\50 - получаем целое число, в данном случае 7
умножаем его на 50 - получаем целое число кратное 50.

Ну и куда здесь round вставить? а главное зачем?

[Ennor]

Необходимо округлять дробные числа в большую сторону до 50.

Исходя из этого, я бы сделал так:

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

Y = ((X + 50) \ 50) * 50

[Amed]

Ennor, респект!
Опередил меня

[AndrewMarcovich]

Всем большое спасибо:)

[Viper]

останется только дождаться числа уже кратного 50 и получить в результате число на 50 большее исходного!

[Zer]

2Ennor:
Y = ((X + 50) \ 50) * 50

При x=350 имеем:
(350+50)\50=8
8*500=400
А должно быть 350 !!![/b]

[Viper]

Вариант без ненужного увеличения:

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

If (X Mod 50) = 0 Then
Y = X
Else
Y = ((X + 50)\50)*50
End If

почему то кажется что можно проще

[skiperski]

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

Function LngRound(ByVal x As Long, Optional ByVal iMod As Long = 1) As Long
    LngRound = ((x + iMod \ 2) \ iMod) * iMod
End Function

Immediate window

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

n=75:?n,LngRound(n,50)
75            100
74            50
50            50
25            50
24            0
1             0
0             0

[Odrick]

(X \ 50)*50 + SGN(X - (X \ 50)*50)*50

Вроде должно работать

[uhm]

skiperski, I'm with you!