Округление числа в Visual Basic

У меня есть приложение Visual Basic, которое должно округлять число вниз, например, 2.556 станет 2.55, а не 2.26.Округление числа в Visual Basic

я могу сделать это, используя функцию, чтобы сдирать символы более чем на 2 прямо с десятичной точки с помощью этого:

Dim TheString As String 
TheString = 2.556 
Dim thelength = Len(TheString) 
Dim thedecimal = InStr(TheString, ".", CompareMethod.Text) 
Dim Characters = thelength - (thelength - thedecimal - 2) 
_2DPRoundedDown = Left(TheString, Characters)

Есть ли лучшая функция, чтобы сделать это?

источник

2009-08-04 Paul

Вы можете сделать это с помощью Math.Floor. Тем не менее, вам нужно умножить * 100 и разделить, так как вы не можете поставить ряд цифр

Dim theNumber as Double 
theNumber = 2.556 
Dim theRounded = Math.Sign(theNumber) * Math.Floor(Math.Abs(theNumber) * 100)/100.0

источник

2009-08-04 16:22:45

Это не будет работать, если число отрицательное. – Justin

Иногда полезно сохранять ваши числа целыми числами или фиксированной точкой (если вам не нужен полный диапазон с плавающей запятой), выполняя вычисления по номерам с фиксированной запятой, а затем настраивая их при отображении пользователю. –

@ Justin: Хороший вопрос - я отредактировал для учета отрицательных чисел, а также положительный –

Другой способ сделать это, что не полагается на использование строкового типа:

Dim numberToRound As Decimal 
Dim truncatedResult As Decimal 
numberToRound = 2.556 
truncatedResult = (Fix(numberToRound*100))/100

источник

2009-08-04 16:26:40

Использование Fix() будет немного быстрее, чем использование Floor(). – Justin

Что вы поддерживаете это утверждение? –

@Justin: Fix на самом деле медленнее, чем Math.Floor - он выполняет проверку, а затем вызывает Math.Floor внутри. Запустите рефлектор на Microsoft.VisualBasic.dll для получения дополнительной информации. –

Math.Floor() ответ хороший. Я не уверен, какие именно среды VB Fix() определены. Как указывает Justin, Math.Floor() не будет работать с отрицательными числами. Вам нужно будет принять абсолютное значение, а затем умножить на SGN() числа. Я не знаю точное имя функции, которую вы использовали бы, чтобы получить SiGN (не sin()) от числа.

В псевдокоде, принимая отрицательные значения во внимание, то результат будет выглядеть так:

result = sgn(num) * floor(abs(num * RoundToDig))/RoundToDig

- Пушистые коровы мычат и распаковывать.

источник

2009-08-04 16:45:10 WyrdestGeek

Я использую функцию Fix() из VB6, но она также доступна в VB.NET - http://msdn.microsoft.com/en-us/library/microsoft.visualbasic.conversion.fix.aspx –

@WyrdestGeek: функция Math.Sign. @Saul: Fix вызывает Math.Floor внутри. –

Что это за декомпрессия быков? –

округлить

Math.Floor(number)

Для обрезки символов

number.Substring(0,1)

Вы можете преобразовать его в строку.

источник

2013-06-06 17:16:55 ad48

Dim Input As Decimal 
Dim Output As Decimal 
Input = 2.556 
Output = Input - (Input Mod 0.01)

Это будет работать как с положительными и отрицательными числами

источник

2016-08-08 23:49:42 Oncure1

ответ

Смежные вопросы