Hola:
Necesito ayuda, como puedo poner, por ej: en dos textbox los 2000 y 600 y que me le pase a dos label a 10 y 3 (osea simplificado).
Muchisima gracias
Salu2
Primero deberias pensar en un algoritmo y despues pasarlo a codigo. Podria ser comprobando si los dos numeros son divisibles por un numero, por ejemplo por 2, si son divisibles, hacer la division y seguir haciendo la comprobacion hasta que no sean divisibles, luego ir incrementando el divisor (2) y hacer el procedimiento anterior. El divisor lo iras incrementando mientras que sea menor o igual al menor de los dos numeros(numerador y denominador).
Saludos
Al final lo terminé haciendo:
Private Sub Simplificar(ByRef Numerador As Long, ByRef Denominador As Long)
Dim Divisor As Long
Divisor = 2
Do While (Divisor <= Numerador) And (Divisor <= Denominador)
If (Numerador Mod Divisor = 0) And (Denominador Mod Divisor = 0) Then
Numerador = Numerador / Divisor
Denominador = Denominador / Divisor
Else
Divisor = Divisor + 1
End If
Loop
End Sub