Double в String. язык VBA

[vova_]

зравствуйте подскжите пожалуста
как перевести переменную Doudle в переменную String
в формате 1235546522...31232213100000000...0
а не в формате 1,23554652212332566468Е+20

...
Dim a As Double
...
10:
If Right$(Str$(a), 1) = "0" Then a = CDbl(Left$(Str$(a), Len(Str$(a)) - 1))
If Right$(Str$(a), 1) = "0" Then GoTo 10

что ипользовать вместо Str$(a)?

[Watcher_1]

а как вы определяете что число превратилось именно в такой формат 1,23554652212332566468Е+20?
Вы число случайно в ячейку не выводит?

[The_Prist]

Не видя данных сложно советовать в данном случае, но попробуйте не Str$, а CStr(). Т.е. вызвать непосредственно явный конвертер.

[Казанский]

s=format(a,string(20,"0"))

[vova_]

Сообщение от Watcher_1

а как вы определяете что число превратилось именно в такой формат 1,23554652212332566468Е+20?
Вы число случайно в ячейку не выводит?

ставлю точки где приостановитца
и смотрю что какой переменной присвоино в єтот момент

[vova_]

Сообщение от Казанский

s=format(a,string(20,"0"))

пробовал но эта команда добавляет к началу строки "0"-и чтоб её длинна достигла 20

Сообщение от The_Prist

Не видя данных сложно советовать в данном случае, но попробуйте не Str$, а CStr(). Т.е. вызвать непосредственно явный конвертер.

тоже попробовал в моём случае формируетца строка 12123223213.2136

попробовал (Format(a, "0")

вот код

Private Sub CommandButton1_Click()
Dim a, b As Double
a = 1
b = 0
For i = 1 To 56
a = a * 2
Next i
For k = 57 To 100
a = a * 2
10:
If Right$(Format(a, "0"), 1) = "0" Then a = CDbl(Left$(Format(a, "0"), Len(Format(a, "0")) - 1))
If Right$(Format(a, "0"), 1) = "0" Then GoTo 10
Next k
For j = 1 To Len(Format(a, "0"))
b = b + CDbl(Left$(Right$(Format(a, "0"), 1), i))
Next j
TextBox1.Text = Format(b, "0")
End Sub

но почемуто правыльно генерируютца значеныя лиш до k=58
при k=59 значение переменной а на еденицу большэ чем должно быть

помогите пожалуста разобратца

[The_Prist]

Помогите и Вы нам - приложите пример своих данных.

[Казанский]

пробовал но эта команда добавляет к началу строки "0"-и чтоб её длинна достигла 20

s=format(a,string(20,"#"))

[vova_]

Сообщение от The_Prist

Помогите и Вы нам - приложите пример своих данных.

суть задачи найти сумму цифр 2^1000
для начала решил попробовать для 2^100
так как числа 2^1 - 2^100 можно пощитать в Excel что я и зделал в документе

во втором цикле ставил точку для приостановки на Next k
и в определённый момент значения переменной а перестают совпадать с расчитаными ранее

програмка в документе

[DiemonStar]

а не пробовали сделать поразрядное сложение? сделать два массива A(1000) и B(1000) и бинарно сложить в цикле. это можно сделать как с массивами VBA, так и формулами.


открою секрет: для сложения без потери точности вам не хватит ни одного из встроенных типов переменных, поскольку они для вашего задания должны быть 1000 битов (125 байт)