0

Tengo esta función que pretende convertir de octal a decimal. El problema es que siempre da 0 y no se como corregirla.

Public Function OctToDec(ByVal octal As Long) As Integer
    Dim DecNum As Integer
    Dim digito As Integer
    
    Const DIVISOR As Integer = 10
    
    Dim i As Long
    Dim octal As Long
    Dim j As Long
    
    j = 0
    i = octal
    
    numero = 0
    digito = 0
    
    For i = octal To 0 Step -1
        i = i \ DIVISOR
        
        If Not (digito >= 0 And digito <= 7) Then
           Exit Sub
        End If

        digito = CInt(i) Mod DIVISOR
        j = j + 1
        DecNum = DecNum + digito * CInt(8 ^ j)
        
    Next
    OctToDec = DecNum
End Function
11
  • 1
    bueno pues tu logica esta mal.. digito = 0, entonces digito >= 0 es true, digito >= 7 es false... el and da false.. el not de false es true... entonces exit sub con valor 0
    – gbianchi
    Commented el 23 jun. 2021 a las 3:24
  • haciendo debug del codigo, esto salia solo :(
    – gbianchi
    Commented el 23 jun. 2021 a las 3:25
  • El error no está en en if Commented el 23 jun. 2021 a las 10:09
  • 1
    Tiene Exit Sub cuando está dentro de un Function.
    – Duston
    Commented el 23 jun. 2021 a las 13:23
  • 1
    Aunque el código publicado no compila, si lo hiciera sólo devolvería cero con números de 1 dígito por causa de la división i = i \ DIVISOR. Debes encontrar otra manera de descomponer el número octal dado en cada uno de sus dígitos. Commented el 23 jun. 2021 a las 14:41

1 respuesta 1

0

Tenías muchas cosas mal puestas, entre variables que no se usaban a otros elementos que tampoco estaban bien o en mal lugar...

Así parece que funciona...

Public Function OctToDec(ByVal octal As Long) As Integer
    Dim DecNum As String = 0
    Dim digito As Integer = 0
    Const DIVISOR As Integer = 10
    Dim i As Long = 0

    digito = 0

    For i = octal To octal Step -1
        i = i \ DIVISOR
        digito = CInt(i) Mod DIVISOR

        If (digito <= 0 And digito >= 7) Then
            Exit For
        End If

        DecNum = DecNum + CInt(8 * i)

    Next
    OctToDec = DecNum
End Function

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.