ayuda con una calculadora

[andrer03]

hola tengo echa un aclaculadora con este codigo

Private Sub Command1_Click()
Text3 = Val(Text1) / Val(Text2)
End Sub

lo que quiero es obtener el resultado solo con dos decimales ayuda por favor

[vivachapas]

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Text3 = Val(Text1) / Val(Text2)
Text3 = Round(Text3, 2)
End Sub

[ssccaann43 ©]

hola tengo echa un aclaculadora con este codigo

Private Sub Command1_Click()
Text3 = Val(Text1) / Val(Text2)
End Sub

lo que quiero es obtener el resultado solo con dos decimales ayuda por favor

Puedes hacerlo de varias maneras

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
Text3 = Round(Val(Text1) / Val(Text2),2)
End Sub


Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
Text3 = FormatNumber(Val(Text1) / Val(Text2),2)
End Sub


[andrer03]

gracias por su ayuda es lo q buscaba gracias