Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как округлить число 
:(
    Опции темы
Gannibal
Дата 19.4.2005, 20:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17
вот функция если поможет в решении вашей задачи

Код

Public Function okruglenie(Number As Variant, NumDigits As Long) As Double
    Dim dblPower As Double
    Dim varTemp As Variant
    Dim intSgn As Integer

If Not IsNumeric(Number) Then
okruglenie = 0
 Exit Function
End If
dblPower = 10 ^ NumDigits
intSgn = Sgn(Number)
Number = Abs(Number)
varTemp = CDec(Number) * dblPower + 0.49 'если поставит 0.5 тогда будет округлять в верх а при етом значении вниз
okruglenie = intSgn * Int(varTemp) / dblPower
End Function


у меня вот что возникло а нельзя просто форматировать с помощью FormatCurrency() ?

вот короче ещё так попробывал сделать

Код

Dim a, b 
a = 0.025 
b = Round(CCur(a), 2)



Это сообщение отредактировал(а) M.E.G.U.S - 19.4.2005, 20:25


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1300 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.