Вопросы о TextBox

[Вадим12091965]

Привет. Несколько вопросов:
1. В TextBox1 числовое значение (например 1257, 8643). при коде

Лист1.[A1].Value = TextBox1.Text

значение в ячейку приходит 12578643 без запятой. Как навести порядок?
И можно ли сделать в TextBox 2 знака после запятой?
2. При коде

TextBox23.Text = TextBox23.Text + TextBox18.Text

при сумме в TextBox23 получаю не сумму чисел, которые в TextBox23.Text и TextBox18, а два числа один за другим. Как получить сумму?
3. Есть 2 DTPricker. Один как календарь, второй как таймер. Как выглядит код для каждого, что-бы запустить календарь и часы?
Спасибо.

[VictorM]

1.

Лист1.[A3].Value = TextBox1.Value

TextBox1.Value = Format(Лист1.[A1].Value, "0.00")

[VictorM]

2.
Для целых чисел

TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)

для дробных

TextBox3.Value = CDbl(TextBox1.Value) + CDbl(TextBox2.Value)

[Вадим12091965]

Не получается с кодом:

TextBox23.Value = CDbl(TextBox23.Value) + CDbl(TextBox18.Value)

Должно быть, что при нажатии кнопки TextBox23 увеличивается на TextBox18, но выдается ошибка "не соответствие типов"

[IgorGO]

используйте

TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)

и бросайте это программирование...

[Вадим12091965]

Спасибо обоим. Сумму получил, хотел конечно с 2-мя знаками после запятой, но видно не судьба.
А на счет бросить программирование. Я и не начинал, закончу начатое, осталась мелочь.

[IgorGO]

судьбы нет, в жизни есть место случаю

TextBox3.Value = format(Val(TextBox1.Value) + Val(TextBox2.Value), "0.00")

[Вадим12091965]

Ну да, появились 2 ноля после запятой, но только ноли. Пробовал вместо Val вставить CDbl, но ошибка.
Ладно, спасибо и на этом.

[SAS888]

появились 2 ноля после запятой, но только ноли

Это потому, что функция Val обрезает текстовые значения, спотыкаясь о неверно введенный знак разделителя целой и дробной части, а функция CDbl не распознает этот знак. Для того, чтобы можно было вводить в TtxtBox-ы любой разделитель, можно использовать

Dim a As Double, b As Double
a = CDbl(Replace(Replace(TextBox23, ".", Application.DecimalSeparator), ",", Application.DecimalSeparator))
b = CDbl(Replace(Replace(TextBox18, ".", Application.DecimalSeparator), ",", Application.DecimalSeparator))
TextBox23 = Format(a + b, "0.00")

[Вадим12091965]

Спасибо за вариант, но, видимо, у меня где-то что-то не так в программе, так как снова ошибка "несоответствие типов".