codigo de numeros quebrados????????? en una calculadora

[cesitar1702]

hola; me dejaron un trabajo de una calculadora en v.b y me pidieron un boton q me me convierta a numeros quebrados? ayudenmeeeee.. ..si.......... ..........byee eeeeeee

[DarkKey]

Hola, cesitar1702
Checate este codigo, pasa el decimal a fraccion:

Option Explicit

Private Sub Command1_Click()
    Dim Entero As Long, Fraccion As Long
    Dim Divd As Long
   
    'Separamos la parte entera de la fraccionaria
    Entero = Int(Val(Text1))
    Fraccion = Val(Right(Text1, Len(Text1) - InStr(Text1, ".")))
    'Dependiendo de la longitud de Fraccion sabremos si son décimos, centécimos, etc.
    Divd = Sqrt(10, Len(Str(Fraccion)) - 1)
    'Simplificamos la fracción
    Simpl Fraccion, Divd
    'Si Entero es mayor a 0 lo imprime, si no, se omite
    If Entero > 0 Then Text1 = Entero & "-" & Fraccion & "/" & Divd _
    Else Text1 = Fraccion & "/" & Divd
End Sub

Private Function Sqrt(ByVal Num As Long, ByVal Exp As Long) As Long
    Dim n
   
    For n = 0 To Exp - 2
        Num = Num * 10
    Next
    Sqrt = Num
End Function

Private Sub Simpl(Fraccion As Long, Divd As Long)
    Dim Divs As Long
    Dim Min As Boolean
   
    Do While Min = False
        'Si Min = True ya no se puede simplificar más
        Min = True
        For Divs = Fraccion To 2 Step -1
            'Si hay un divisor común, simplificamos
            If Fraccion Mod Divs = 0 And Divd Mod Divs = 0 Then
                Fraccion = Fraccion / Divs
                Divd = Divd / Divs
                'Es posible que la nueva fraccion pueda simplificarse
                Min = False
            End If
            'Despues del primer divisor el segundo es siempre la mitad
            If Divs = Fraccion Then Divs = Divs / 2
        Next
    Loop
End Sub

Espero que te sirva
Nos vemos...