Округление

[raros]

Подскажите пожалуйста, каким оператором лучше округлять числа?
Мне необходимо округлять числа до сотых (Ex. 3.059706 -> 3.06)

[Sirik]

Попробуй FORMAT

[Ruslan Demidow]

Подскажите пожалуйста, каким оператором лучше округлять числа?
Мне необходимо округлять числа до сотых (Ex. 3.059706 -> 3.06)

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

Round(Округляемое число ,Количество знаков после запятой)


[raros]

Dim A As Single
Dim B As Single
Dim C As Single

Private Sub cbSTART_Click()
A = Val(tbA.Text)
B = Val(tbB.Text)
C = A * B
Round C, 2
lbC.Caption = C
End Sub


Что-то не получается?! В чём проблема?

[alibek]

C=Round(A*B,2)

[raros]

Alibec, спасибо! Но, не понятно, почему не идёт программа с моим кодом???

C = A * B
Round C, 2

[raros]

Im sorry, ALIBEK!

[Ruslan Demidow]

Dim A As Single
Dim B As Single
Dim C As Single

Private Sub cbSTART_Click()
A = Val(tbA.Text)
B = Val(tbB.Text)
C = A * B
Round C, 2
lbC.Caption = C
End Sub


Что-то не получается?! В чём проблема?

Round - не процедура, а функция, поэтому её параметры обязательно должны быть заключены в скобки.

[raros]

Руслан, спасибо!

[raros]

Как сделать так, чтобы число округлялось до большего целого, в случае если его дробная часть не достигает границы округления до большего целого и округляет его в меньшую сторону?
ex. 4,165 -> 5, а не 4?

[alibek]

Твой первый код (Round C, 2) работает. Просто Round это функция и она возвращает результат, округляя C до двух знаков. Но этот результат ты никуда не запоминаешь.

A = Fix(A) + Sgn(A-Fix(A)) - округление вверх.
A = Fix(A) - округление вниз.

Разумеется, при условии что A>0.

[raros]

Спасибо. ALIBEK!
что конкретно выполняет функция Sgn()

[alibek]

Sgn возвращает знак числа, -1 для отрицательных, 0 для 0 и +1 для положительных.

[raros]

Ещё раз, спасибо тебе ALIBEK!

[tyomitch]

Round - не процедура, а функция, поэтому её параметры обязательно должны быть заключены в скобки.

Ты неправ. Скобки нужны, только если возвращаемое значение участвует в выражении.

[A.A.Z.]

Пришел Я и решил итог подвести

Математические функции округления и др.:
Abs(x) - модуль
Int(x) - целая часть числа
Fix(x) - целая часть числа
*разница между Fix и Int в том, что если число отрицательное, Fix возвращает число, большее данного, а Int - меньшее, например, Fix(-8.4) = -8; Int(-8.4) = -9.
Round(x, y) - округляет число x до y знаков после запятой
Sgn(x) - знак числа (-1, если число отрицательное, 0 - если равно нулю и 1, если положительное).

[tyomitch]

Ещё есть функция CInt, выполняющая "бухгалтерсоке округление" (число с половиной округляется до чётного).
Кстати, Round(x, 0) ведёт себя точно так же.

[Ruslan Demidow]

Round - не процедура, а функция, поэтому её параметры обязательно должны быть заключены в скобки.

Ты неправ. Скобки нужны, только если возвращаемое значение участвует в выражении.

Сорри, не так выразился. ... Ну вы меня поняли.

[Ruslan Demidow]

Ещё есть функция CInt, выполняющая "бухгалтерсоке округление" (число с половиной округляется до чётного).
Кстати, Round(x, 0) ведёт себя точно так же.

Есть ещё целочиленное деление Правда оно округляет всегда до целого.

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

msgbox 3 / 2 ' = 1,5
msgbox 3 \ 2 ' = 1


[raros]

Всем большое спасибо за информацию!