simplificar dos numeros

[erick185]

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

[Ironhorse]

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

[Ironhorse]

Al final lo terminé haciendo:

Código [Seleccionar] Expandir


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