Порядок числа типа Double

[Faust]

Как узнать порядок числа указанного типа красиво? Сейчас делаю так:

Код: Выделить всё

Const NatToDec=Log(10)
Function Poryadok(X As Double) As Integer
Poryadok=CInt(Log(X)/NatToDec)
End Function

Попытался разобраться вот в этом, но не могу понять одну вещь: ведь где-то VB хранит значение порядка скажем, для того, чтобы вывести число на экран.

[alibek]

А логарифмом и есть красиво. Можно еще взять Str$(Value) и отсчитывать позиции от символа ".".

[ANDLL]

Полностью согласен!
Логарифмом не красиво, а поиск символа ',' вообще зависит от региональных стандартов. Между тем, это значени хранится в каком-то байте числа.
А вот где - это к спецам

[alibek]

А почему это логарифмом некрасиво?
А в Str$() разделитель не зависит от региональных настроек, это всегда десятичная точка.

З.Ы. Но если хочешь извращений, то делай CopyMemory в байтовый массив (из четырех или восьми элементов) и смотри биты, отвечающие за порядок.

[ANDLL]

Из 8 элементов.
Я рылся, но не нашел. И это не извращение, а нахождение результата без использования вычислений. А просто берется уже и так известное значение.

[Faust]

А логарифмом и есть красиво.

Спасибо. Меня просто интересовало в первую очередь быстродействие функции, а логарифмирование - операция не из самых простых - вот я и подумал: может через структуру формата Double можно получить необходимое значение быстрее. Впрочем, для той задачи, с которой я работаю (оценка погрешности) и двоичный порядок подойдет...

[areh]

есть ещё один метод, правда он более медленный, но иногда может пригодиться, когда нету функции логарифмирования

итак, всё очень просто: в цикле переменная делиться на 10 до тех пор, пока не станет меньше 1, порядок - количество повторений в цикле...

ну это так, вдруг кому пригодиться...

[Mikle]

Можно вместо деления на 10 умножать на 0.1# - так быстрее.