Дробное число
Здравствуйте. Вот мой код.
Цитата:
Option Explicit
Private Sub Command1_Click()
Dim paramB As Double
Dim paramC As Double
Dim t1 As Double
paramB = Text2.Text
paramC = Text2.Text
Label1 = ""
t1 = paramB + paramC * Sqr(2)
Label1 = Label1 & t1 & " "
End Sub
Private Sub Command1_Click()
Dim paramB As Double
Dim paramC As Double
Dim t1 As Double
paramB = Text2.Text
paramC = Text2.Text
Label1 = ""
t1 = paramB + paramC * Sqr(2)
Label1 = Label1 & t1 & " "
End Sub
Как сделать так чтобы в ответ записывалась цифра округленная до 2 знака после запятой, т.е до сотых?
Format$("0.00"),как-то так
t1 = Format((paramB + paramC) * Sqr(2), "0.00")
Спасибо!!!!!!