Как округлить число до 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
                        

Оцени полезность:

5 голосов , оценка 4.2 из 5

Похожие ответы