0 десятых отбрасывается

[kminas]

Если число заканчивается на 0, то он отбрасывается. Например, если я ввожу 6,0 возвращается число 6; если ввожу 6,1 возвращается 6,1. Тип переменной Single или Double. Как сохранить число, но чтобы переменная была не Variant или String.

[RayShade]

Для вывода пользователю, используй функицю Format. Она позволяет писать после запятой сколько хочешь нулей.

[kminas]

Спасибо, попробую.

[kminas]

RayShade Не помогло.

[iGrok]

Эммм.. Что именно пробовал?

[kminas]

функицю Format

[dr.MIG]

Как пробовал?

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


Dim n As Double
n = 2
MsgBox Format(n, "0.0")

[kminas]

dr.MIG Не совсем.
У меня типа

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

Dim n As Double
text1.text = 6,1
n=CDbl(text1.text)

[dr.MIG]

Не совсем понял, конечно, что конкретно надо... Где именно и когда в программе тебе надо показывать число в формате "0.0"?

Перечитал первый пост... Не надо пытаться сохранить число в формате c нулём после запятой (это я про String). Пусть оно хранится в Double или Single. Просто когда его надо отобразить (в MsgBox'e, текстовом поле или ещё где), используй Format(n, "0.0").

[kminas]

dr.MIG
В документе Word, но этот вариант с хранением не подходит. Если "." Single или Double не воспринимает. Я преобразую, вернее пробую преобразовывать с помощью такой конструкции:

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

n = Format(CDbl(Replace(text1.Text, ".", ",", 1, 1)), "#00.0")

. И при точке, и при запятой 0 отбрасывается. Просто в одном месте должно быть число без нуля, а, в другом с нулем. Впрочем на работе говорят, не парься, бусть будет без нуля.

[iGrok]

Угу.. И на первой же машине с измененным разделителем дробной части числа этот код перестанет работать.. )

[kminas]

iGrok
Во-первых, машина одна, ибо пока и один Офис еще не купили. Во-вторых, число вставляется в документ и ему будет по барабану какой там знак.

[dr.MIG]

На всякий случай -- текущий разделитель можно получить так: Format(0, ".")

[kminas]

dr.MIG, спасибо

[kminas]

Все вопрос решил. Правда, левой пяткой правое ухо, но, кому интересно

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

Dim comma  As String
If InStr(1, text1.Text, ".0") Or InStr(1, text1.Text, ",0") > 0 Then
comma = ",0"
End If

[alibek]

kminas, такое впечатление, что ты не читаешь, что тебе пишут.
Правильное решение тебе сказали в первом же ответе.
А вместо него ты какую-то чушь написал.

[kminas]

alibek Значит тупой или глаза мои назад смотрят, только вот этот вариант,

kminas 18.04.2008 (Пт) 20:16

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

n = Format(CDbl(Replace(text1.Text, ".", ",", 1, 1)), "#00.0")

как и другие подобные (более простые) не идут.
Укажи, пожалуйста, что в этом коде не так и я снова попробую.

[dr.MIG]

Если я правильно понял, то ещё раз повторю: откуда это порочное желание сохранить в переменную число в формате "0.0"? Пусть оно лежит в Single как и лежало. Просто при выводе его из этой переменной куда бы то ни было используй Format(n, "0.0"). Если ты всё-таки считаешь, что мы тебя понимаем не правильно, то прикрепи конкретный пример и напиши что и как там должно работать и что не работает в данный момент.

[kminas]

dr.MIG
Т.е. ты считаешь, что код надо разделить, Format ставить уже в коде самой исполняемой процедуры. Неужели за 1 шаг может что-то измениться? Щас попробую.

[kminas]

dr.MIG
Спасибо, наконец вышло. Но не в конечной процедуре. Я уже и забыл. У меня это число вставляется в строковую переменную, а, затем, в документ. И вот там я, по твоему совету, Format то и вставил, а переменная то строковая и она, родимая, его никуда не пущает. Я уще пробовал, например и 1 6 , 0 писать. Все равно выходит нормально 16,0. И с точкой пробовал.
Спасибо!