bes » 05.12.2007 (Ср) 22:35
А работаю я с TextBox… Сперва (для видимости)
Public Function StrInSng(StrLine As String) As String
Dim Pos As Integer
Pos = Len(StrLine) - InStr(StrLine, ",")
If StrLine = "" Then
StrInSng = "0,00"
ElseIf InStr(StrLine, ",") = 0 Then
StrInSng = StrLine + ",00"
ElseIf Pos < 2 Then
StrInSng = StrLine + String(Pos, "0")
End If
End Function
Затем, например, - для вычисления…
If TglButton2.Visible = False Then
Label8.Caption = "Всего"
TextBox1 = CSng(TextBox1) + CSng(TextBox3)
End If
А потом, что опять конвертить в текст?