Как сделать округление в vba
Обновлено: 04.07.2024
Если вы предполагаете, что какая-то производная математическая функция понадобится в дальнейшем, сделайте ее частью своего математического арсенала, записав в виде процедуры типа Function, и сохраните в модуле с названием вроде МоиМатематическиеФункции. Тогда вы сможете при случае воспользоваться ею, как только в этом возникнет необходимость.
Округлять десятичные числа приходится часто, особенно при работе с денежными значениями. Как ни странно, VBA не предлагает прямого решения таких задач, но обсуждаемые ниже приемы помогут вам решить любые проблемы с округлением.
В VBA 6 есть функция Round (в VBA 5 такой функции нет), но дает она не слишком надежные результаты. Например, в результате выполнения оператора х = Round( 2.505, 2) значением переменной х будет 2.5, а не 2.51, как должно быть. Поэтому не используйте Round, если, конечно, вы не намереваетесь получить заведомо неправильные ответы.
Есть другой простой способ округления чисел в VBA, при котором используется функция Format: просто используйте эту функцию, задав подходящее значение аргумента формат, как показано в следующем примере (как использовать аргумент формат, см. выше в разделе "Создание собственных форматов");
В VBA 6 для получения подобного результата можно использовать функцию FormatNumber:
sngOKpyгленное = FormatNumber(sngНеокругленное, 2)
Не забывайте, что переменная, в которую вы помешаете округленное значение, должна иметь тип String, Single, Double, Decimal, Currency или Variant, но никак не тип Integer или Long, поскольку тогда вы просто потеряете дробную часть числа.
Обратите внимание на то, что в данном случае строка для аргумента формат не имеет нулей справа от десятичной точки. Кроме того, неокругленное значение внутри функции Format делится на подходящую степень 10, а возвращаемый функцией результат умножается на ту же степень 10. Степень 10 должна быть равной порядку, до которого предполагается округление. В данном примере порядок равен 2, т.е. выполняется округление до сотен.
Если жизненная рутина угнетает ваш бурлящий дух, оживите свои программы определенной непредсказуемостью. Генерируемые случайным образом числа бывают нужны при создании программ, которые моделируют реальные процессы, при создании учебных программ и игр.
В VBA есть две встроенные команды для генерирования случайных чисел.
* Оператор Randomize. Используйте его, чтобы запустить генератор случайных чисел VBA. Не требуя аргументов, оператор Randomize запускает генератор, подавая ему на вход текущее системное время. Таким образом, гарантируется при каждом новом запуске новая последовательность случайных чисел.
* функция Rnd, Эта функция и поставляет случайные числа для использования в программе. Функция Rnd не имеет аргументов- вам нужно просто присвоить имя функции переменной или использовать Rnd в выражении. Возвращается значение с плавающей запятой (типа Single).
Числа с плавающей запятой часто используются в статистических и научных отчетах. Однако в некоторых ситуациях нужны случайные целые значения, если, например, необходима процедура, выбирающая случайным образом номер выигрышного билета. Чтобы преобразовать возвращаемое функцией Rnd значение в целое из определенного диапазона, используйте следующую формулу: случайное_целое = Int(минимум +(Rnd() * максимум))
В этой формуле максимумы минимум задают соответственно верхнюю и нижнюю границы дли значений получаемых случайных чисел - если границы заданы правильно, эта формула всегда будет давать число из соответствующего диапазона.
VBA предлагает ряд функций для подсчета рублей-копеечек в выплатах по ссуде или возвращениях инвестиций. Я не имею здесь возможности обсуждать все эти функции, но собираюсь все же рассмотреть функцию Pmt для расчета выплат по ссуде.
Используйте функцию Pmt для расчета сумм, которые предстоит выплачивать вам (или которые должны выплачивать вам) по закладной с фиксированными процентами или какому либо другому займу. Вот формальный синтаксис функции Pmt:
Pmt(ставка, кпер, сумма[, цель[, тип]])
Первый аргумент, ставка, задает ставку процента выплат по займу за определенный период времени. Задаваемая вами ставка процента должна соответствовать периодичности выплат. Если нужно выплачивать ежемесячно по 8%-ной закладной, то не забудьте, что 8% является годовой нормой. В таком случае ставка должна задаваться выражением типа .08/12 (8% разделенные на 12 месяцев).
Аргумент кпер должен задаваться целым значением, представляющим общее число выплат, которые предстоит сделать по займу. Для ежемесячных выплат в течение 5 лет кпер должно быть равно 5 * 12, или 60. Общая сумма займа задается аргументом сумма.
Остальные аргументы необязательны. Чтобы рассчитать, сколько вам нужно откладывать, чтобы накопить определенную сумму, задайте аргумент цель, чтобы передать функции Pmt запланированную сумму в виде отрицательного числа- это сумма на будущее. (При этом аргумент ставка задает ожидаемую ставку процента. Если некоторая часть из целевой суммы уже накоплена, эта часть должна задаваться аргументом сумма.) Аргумент тип позволяет указать, когда должны проводиться выплаты - в конце каждого периода (задается значением 0 и подразумевается по умолчанию) или в начале (значение 1).
Чтобы использовать функцию Pmt в программном коде, присвойте ее значение переменной типа Double. Например:
dblPay = Pmt (.08/12, 360, 300000) ' Типичная закладная
dblSav = Pmt (07/12, 120, 12500, -75000) ' Цель = 75000р.
Все разнообразие финансовых функций VBA представлено в табл. 11.8. Чтобы таблица была удобной для использования, я удалил из списков аргументов необязательные. Чтобы получить дополнительную информацию о любой из этих функций, обратитесь к соответствующему раз зелу справки VBA, где вы найдете также и подходящий пример.
Таблица 11.8. Финансовые функции VBA
DDB(стоимость, остаток, период)
Амортизация имущества за данный период, используя метод двойного процента со снижающегося остатка
FV(ставка, кпер, плата, сумма)
Будущее значение вклада на основе периодических постоянных платежей и постоянной процентной ставки
Impt(ставка, период, кпер, сумма)
Величина выплаты за указанный период на основе периодических постоянных платежей и постоянной процентной ставки
Внутренняя скорость оборота для ряда последовательных операций с наличными, представленными числовыми значениями
MIRR(значения(), фин_ставка, реинвест_ставка)
Модифицированная внутренняя скорость оборота средств для ряда последовательных периодических операций с наличными
Вы можете заказать у нас
VPS (Virtual Private Server, виртуальный выделенный сервер, другое название VDS — Virtual Dedicated Server) — стартовая площадка для крупных проектов, позволяющая более рационально использовать представляемые ресурсы в рамках выбранного тарифа OpenVZ-сервера. OpenVZ — технология виртуализации c общим ядром основной операционной системы без эмуляции отдельного физического сервера. Предлагает меньшую стоимость за счёт низких накладных расходов на виртуализацию. KVM — аппаратная виртуализация, при которой полностью эмулируется физический сервер, что позволяет устанавливать любые операционные системы (Linux, Windows, FreeBSD и другие) и дает гарантированные ресурсы физического сервера. Для всех серверов предоставляется надежная DDOS-защита.
В Visual Basic создан небольшой калькулятор. Задание: "Выводите в текстовые поля результаты вычислений с округлением до сотых долей. Округление результатов вычислений выполните с использованием функции округлени - Round(выражение, количество знаков округления)."
Вопрос: как сделать округление этим Round'ом?
Сам код программы:
Private Sub Command1_Click()
Dim a As Integer, b As Integer, s As Integer
a = Text1
b = Text2
s = a * b
Text3 = s
End Sub
Private Sub Form_Load()
'Очищение текстовых полей
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
Всё работает! Код переписан с лекции, а округление - это и есть самостоятельное задание, с которым я и застопорился.
Этот код работает, так как в VB есть такая вещь, как неявное преобразование типов.
"Вот так", конечно, правильно, но на процессе работы программы не скажется ни грамма. Не говоря уже о результате, который в вопросе просили.. .
А в чём проблема с округлением? Всё же написано.
Изначально надо поменять типы только с integer на single или double.
А строку Text3 = s заменить на Text3 = (s, 3) где вместо тройки любое число поставить, сколько надо знаков после запятой.
Можно на самом деле вообще никаких переменных не заводить и весь код сократить до такого:
Private Sub Command1_Click()
Text3 = Round(Text1 * Text2, 3)
End Sub
Это так же будет нормально работать.
И что этот код работает? Текстовым переменным присваиваются числовые и наоборот? Начни с того, что используй преобразование переменных.
Правильно вот так:
Private Sub Command1_Click()
Dim a As Integer, b As Integer, s As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
s = a * b
Text3.Text = Str(s)
End Sub
| Ваша тема закрыта, почему это могло произойти? Возможно, Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |