Найти разницу в чиcловых значениях?

[Ded_Mazooi]

Всем здрасти! Вопрос может показаться глупым. но я что то не догоняю. У меня на форме есть 4 элемента это-два textbox'a один Label и кнопка. Мне всего на всего нужно узнать разницу в числах! =)
Допустим text2.text = 10, а text1.text = 9 значит в label должно выводиться значение 1. все вроде бы просто! но когда в text1.text ставишь значение 9.7 или 9.8 или 9.9 то в label выводит какой то бред если вводишь значение 9.7 то в label выводит "0.3000000" если 9.8 то вот что "0.1999999" если 9.9 то вообще в Label бред какой то появляется "9.999999999"
Я как понимаю код вообще должен быть не сложный, я вот так делал.

Private Sub Command1_Click()
c = Text2.Text - Text1.Text
Label1.Caption = c
End Sub

Зарание Спасибо!

[GSerg]

RTFM.
Label1.Caption = cstr(val(text2.text)-val(text1.text))

[Ded_Mazooi]

GSerg - так я тоже пробавал! совершенно одно и тоже!
есть ещё варианты?

[Matew]

Объявить переменные, которые ты загоняешь в текстбоксы как интежер или лонг.

[A.A.Z.]

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

Label1.Caption = CStr(CLng(Val(Text2.Text))-CLng(Val(Text1.Text)))

[Ded_Mazooi]

Matew - пробовал, не работает.
A.A.Z. - этот пример даже десятичные не выводит.
Слушайте, а может это проблема в VB?

[FaKk2]

Ded_Mazooi
Это проблема в ДНК

Почитай это.

[GAGArin]

ИМХО такую мелкую вещь проще просмотреть дебагером. Делов нуль, где у тебя косяк сразу заметишь.
Если надо просто округлить красиво, то смотри пост FAKK2

А вот за что мне VB не нравится, так за возмможность писать что-то типа text1-text2 без преобразования типов. Пару раз боком вылазело, потом зарекся так делать.

[Ded_Mazooi]

, FAKK2 - за пост спасиб! помог! с ДНК тоже сё впорядке расшифровали дебагером, сказали все впорядке!

Всем спасиб!