DE DECIMAL A FRACCIÓN
Publicado por LUIS (1 intervención) el 29/09/2015 20:42:53
Hola buenas tardes, estoy haciendo una programa sobre sistema de ecuaciones de 2x2 teniendo el siguiente código
el problema que tengo que no me acepta fracciones, por ejemplo escribir 2/3 o algo asi.
al mismo tiempo los resultados aparecen en decimal y los quiero tambien en fracción.
necesito ayuda, de antemano gracias.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CALCULAR_Click()
Dim A1 As Integer, A2 As Integer, A3 As Integer, B1 As Integer, B2 As Integer, B3 As Integer
Dim x As Double, y As Double, D As Double
A1 = Val(Text1): A2 = Val(Text2): A3 = Val(Text5)
B1 = Val(Text3): B2 = Val(Text4): B3 = Val(Text6)
D = (A1 * B2) - (B1 * A2)
y = ((A1 * B3) - (B1 * A3)) / D
x = ((A3 * B2) - (B3 * A2)) / D
Text7 = xText8 = yel problema que tengo que no me acepta fracciones, por ejemplo escribir 2/3 o algo asi.
al mismo tiempo los resultados aparecen en decimal y los quiero tambien en fracción.
necesito ayuda, de antemano gracias.
Valora esta pregunta
0
