Pergunte aqui
0

O argumento não é opcional...

perguntadas 2020-05-18 05:00:53 +0200

imagem do gravatar de Caiobba

updated 2020-05-18 18:17:19 +0200

imagem do gravatar de Schiavinatto

Estava compilando o macro e deu um erro falando " Erro de execução BASIC. O argumento não é opcional." Nao to entendendo o porque.

Function DMS2Real(Degree_DMS As String) As Double  

    Dim degrees As Double
    Dim minutes As Double
    Dim seconds As Double
    Dim sign As Integer

    degrees = Val(Left(Degree_DMS, InStr(1, Degree_DMS, " ° ") - 1)) 'o erro está aparecendo aqui"

    If degrees < 0 Then
        degrees = degrees * -1
        sign = -1
    Else 
        sign = 1
    End If

    minutes = Val(Mid(Degree_DMS, InStr(1, Degree_DMS, "°") + 2, InStr(1, Degree_DMS, "'") - InStr(1, Degree_DMS, "S") - 2)) / 60

    seconds = Val(Mid(Degree_DMS, InStr(1, Degree_DMS, "'") + 2, Len(Degree_DMS) - InStr(1, Degree_DMS, "'") - 2)) / 3600
    DMS2Real =  sign * (degrees + minutes + seconds)
End Function
editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

1

respondidas 2020-05-18 14:14:00 +0200

imagem do gravatar de Conrado

@Caiobba seja bem vindo.

Segue adaptação

Function DMS2Real(Degree_DMS As String) As Double  

    Dim Texto as String
    Dim degrees As Double
    Dim minutes As Double
    Dim seconds As Double
    Dim sign As Integer

    Texto = Degree_DMS 'acrescentado esta variável para receber o conteúdo da célula

    Texto = Left(Texto, InStr(1, Texto, " °") - 1) 'extração do símbolo graus

    degrees = cdBl(Texto) 'conversão do texto em double

    If degrees < 0 Then
        degrees = degrees * -1
        sign = -1
    Else 
        sign = 1
    End If

    minutes = Val(Mid(Texto, InStr(1, Texto, "°") + 2, InStr(1, Texto, "'") - InStr(1, Texto, "S") - 2)) / 60

    seconds = Val(Mid(Texto, InStr(1, Texto, "'") + 2, Len(Texto) - InStr(1, Texto, "'") - 2)) / 3600
    DMS2Real =  sign * (degrees + minutes + seconds)
End Function
editar assinalar como ofensivo Excluir Link mais

Comentários

Valeu pela ajuda...

imagem do gravatar de CaiobbaCaiobba ( 2020-05-18 18:11:48 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2020-05-18 05:00:53 +0200

Lidas: 14 vezes

Última atualização: May 18