Как отобразить 24х знаковое число на Lable

[giaber]

Есть число Single, как получить его десятичное представление, то есть скажем чтоб отобразить его в TextBox
Например:
число такое: s = 1.05890473869562E+23
а отобразить так:105890473869562218590463
Спасибо

[burik]

Например, так:

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

Format(s, "###,###,###,###,###,###,###,###.00")

P.S. В single это число округлиться до 1.058905E+23 (если не ошибаюсь), если нужна такая точность, то используй double.

[giaber]

Спасибо!

[giaber]

Вот наверное так надо задать вопрос:
в десятичной форме целое число имеет 24 знака. Как можно его записать, и как можно вывести его на скажем лейбл в десятичной форме?
Стандартными методами.

To burik
а сколько байт будет занимать такое число?

[Viper]

а сколько байт будет занимать такое число?

Double занимает 8 байт.

[giaber]

Совсем запутался! на другом форуме мне говорят что стандартными методами в VB это невозможно! Я ничего не понимаю...
То что дабл 8 байт занимает я прочитал, но ведь в дабл это число не запишется, как мне говорят

[burik]

В VB есть определенный набор числовых типов данных. Каждый тип позволяет хранить определенный набор чисел.

Рассмотрим тип Double. Число типа Double храниться в экспоненциальной форме. Т.е. 64 бита разделены на мантиссу и экспоненту (не еще один бит определяет знак числа). 11 бит отдано под экспоненту, 52 бита - под мантиссу. С помощью 52 битов можно выразить 4503599627370496 различных чисел. Т.е. мантисса изменяется от 0 до 4503599627370495. Т.е. ты можешь хранить числа в этих пределах домноженные на 10 в какой-либо степени. Следовательно ты можешь в переменную типа Double сохранить 24x значное число, но последние 8 цифр (примерно) будут нулями.

Можно рассмотреть еще тип Long. Тут все просто - 8 байт => 256⁸ вариантов. С учетом знаковости получаем диапазон от –9 223 372 036 854 775 808 до 9 223 372 036 854 775 807 (вроде так). Т.е. в типе Long хранить 24х знаковое число не получиться.

А что за числа такие? Как они используются?

[alibek]

burik, Long — это 4 байта. И ты забыл про Currency и Decimal.
Только автору топика это не поможет, пока он не научится пользоваться головой.

[burik]

burik, Long — это 4 байта. И ты забыл про Currency и Decimal.

Хм.. Значит, ошибся таки.. В любом случае это мало что меняет.

[alibek]

В любом случае это мало что меняет.

Decimal — меняет. Он хранит 28 десятичных разрядов.

[Денис]

Совсем запутался! на другом форуме мне говорят что стандартными методами в VB это невозможно!

Ой, а дайте адрес этого форума? Я с удовольствием там потопчусь...

[Debugger]

В "цитатнике" есть ссылка на обсуждение "что такое хендл". Потопчись там?

[Денис]

В "цитатнике" есть ссылка на обсуждение "что такое хендл". Потопчись там?

А что за "цитатник"?

[Mikle]

Код с применением Decimal в студию.

[alibek]

?cdec("1234567890123456789012345678")-1

[Mikle]

Caption = CDec("1234567890123456789012345678")
Это работает... не думал, что узнаю что-то новое про VB6.

[Хакер]

Это не столько VB6, сколько COM\Variant.

[alex77755]

Caption = CDec("1234567890123456789012345678")

так даже проще Caption = "1234567890123456789012345678"

[iGrok]

Caption = CDec("1234567890123456789012345678")

так даже проще Caption = "1234567890123456789012345678"

Шутка, надеюсь?

[alex77755]

Разумеется шутка.
Вчера некогда было дописать ответ.
Интересно было бы узнать у автора откуда он берёт такие числа, что даже знает разрядность.
В то время как даже при просмотре при остановке числа показываются со степенью 10.
Я как то заинтересовался примерно таким вопросом: деление до сотого знака после запятой.
Но ничего другого не придумал, кроме деления "В столбик". Расписал процедуру и она просто выдавла мне результат в тектовом формате.

судя содержанию справки автор может вопользоватья:

тип данных Decimal
Тип данных для сохранения чисел в десятичном представлении с фактором масштабирования, равным степени 10. Без масштабирования, т.е. для целых чисел, допустимым диапазоном значений является +/-79 228 162 514 264 337 593 543 950 335. Для числа с 28 знаками в дробной части допустимым диапазоном значений является +/-7,9228162514264337593543950335. Минимальное ненулевое число, которое может быть представлено как значение типа Decimal, равняется 0,0000000000000000000000000001.

Необходимо помнить, что в настоящее время поддерживается использование типа Decimal только внутри типа Variant. Не допускается описание переменной с типом Decimal
. Пользователь, однако, имеет возможность, создать переменную типа Variant с подтипом Decimal с помощью функции CDec.

[alex77755]

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

Caption = CDec("1234567890123456789012345678")

просто так этот код у меня выдаёт ошибку на "CDec"

Пользователь, однако, имеет возможность, создать переменную типа Variant с подтипом Decimal с помощью функции CDec.

А это ещё надо переварить: тип с подтипом - для меня пока тайга с соснами

[alex77755]

действительно можно до 29 разрядов:

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

Private Sub Комманда1_Click()
Dim CVA, CDE, i
CVA = 12345678901234#
CDE = CDec(CVA)
For i = 1 To 80
CDE = CDec(CDE * 2)
Debug.Print CDE, Len(CDE)
Next i
End Sub

в дебагере (Последние строчки - потом ошибка):
3474999681202077305619349504 28
6949999362404154611238699008 28
13899998724808309222477398016 29
27799997449616618444954796032 29
55599994899233236889909592064 29