Округление (?)

[Tok]

Как получить с числа 2,33333 - 2,3 т.е округлить до десятичной?

[Andrey A Kireev]

Видимо придется так.
x = x * 10 переносим запятую
x = ABS(x) округляем
x = x / 10 возвращаем запятую

[Sirik]

А можно так:

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

Public Function CustomRound(fltNum As Double, numOfDigits As Byte) As Double
  Dim frmString As String
  frmString = String$(numOfDigits, "#")
  CustomRound = Format(fltNum, "############." & frmString)
End Function

'Вызов функции:
Dim a As Double
a = 111.19212121211
MsgBox CustomRound(a, 1)


Да, кстати, округление можно производить до любого знака после запятой!!!

[RayShade]

Знающий, человеку нужно не совсем то было Ему то как раз оставить дробную часть, а целую выкинуть. То есть из 2.33333 ему надо было получить 0.03333

В это смысле превый ответ более подходит, как мне кажется.

[alibek]

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

MsgBox Round(2.3333333, 1)

[Andrey A Kireev]

С чего вы взяли что ему остаток округления нужно получить

[Sirik]

Знающий, человеку нужно не совсем то было Ему то как раз оставить дробную часть, а целую выкинуть. То есть из 2.33333 ему надо было получить 0.03333
В это смысле превый ответ более подходит, как мне кажется.

Ну если вопрос Как получить с числа 2,33333 - 2,3 т.е округлить до десятичной?

говорит, что надо получить дробную часть, то <no coments>

[Andrey A Kireev]

тут просто не верно сам вопрос поставлен. был знак минуса, онже дефис вводит в заблуждение.

[Tok]

Спрошу точнее:
В лейбл выводится результат деления и число получается в периоде (2,3333333...), мне нужно убрать все цифры после запятой кроме первой (т.е. 2,3).
??

[Tok]

Второй ответ подходит
Спасибо!

[Sergey-13]

Andrey A Kireev ABS - модуль, т.е. убивается знак минус, нужен INT

[Andrey A Kireev]

Возможно
Знания давно подзабытые, больше 7 лет не програмил.
Я щас опять взялся по нужде.

[Sirik]

Вот так:
твоё число путь будет NumIn, тип Currency

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

Dim NumIn as Currency
NumIn=Format(NumIn."#########.#")


и всё, в NumIn сохранится твоё округленное число до десятых

[RayShade]

Знающий, еще раз отметим бесполезность повторения одной и той же идеи в рамках одного топика. К тому же, после ответа автора что он уже нашел, что ему надо. И к тому же, когда это то что надо совсем не то, про что вы пишете.

Второй раз, между прочим.

[v-adix]

Знающий, еще раз отметим бесполезность повторения одной и той же идеи в рамках одного топика. К тому же, после ответа автора что он уже нашел, что ему надо. И к тому же, когда это то что надо совсем не то, про что вы пишете.
Второй раз, между прочим.

а я и не знал о функции Format! даже написал свою функцию formatFloat как в борланд билдере! теперь буду Format пользоваться.

[RayShade]

Ты все еще о ней не знал, прочтя первые 5 постингов этого топика? Я про то, что незачем повтрояться по несколько раз на одну и туже тему вот и все.