Как округлить число до 15 знаков после запятой - VB
Формулировка задачи:
Имеем, число tmp=-1,90413462841146E+37. Не могу округлить до 15 знаков после запятой к примеру. Round(tmp, 15) возвращает -1,90413462841146E+37 =( почему так и как округлить?
Решение задачи: «Как округлить число до 15 знаков после запятой»
textual
Листинг программы
- Function RoundExp(d As Double, Optional n As Long = 0) As Double
- 'Округляет до заданного числа цифр после десятичной точки
- 'в экспоненциальном представлении числа
- Dim p#
- p = 10 ^ Int(Log(Abs(d)) / Log(10#))
- RoundExp = Round(d / p, n) * p
- End Function
- Sub test()
- Dim tmp#
- tmp = -1.90413462841146E+37
- Debug.Print RoundExp(tmp, 3), RoundExp(tmp) '-1,904E+37 -2E+37
- tmp = -1.90413462841146E-37
- Debug.Print RoundExp(tmp, 3), RoundExp(tmp) '-1,904E-37 -2E-37
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
