MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Conversão matemática Latitude e Longitude (km total)

    Compartilhe
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 754
    Registrado : 09/11/2012

    [Resolvido]Conversão matemática Latitude e Longitude (km total)

    Mensagem  =>Nois em 11/10/2018, 17:44

    Boa tarde pessoal!

    tenho esse calculo em uma planilha e preciso converter em vba mas esta complicado para os meus pequenos conhecimentos de cálculos.

    =6371*(ACOS(COS(RADIANOS(90-D2))*COS(RADIANOS(90-D3))+SEN(RADIANOS(90-D2))*SEN(RADIANOS(90-D3))*COS(RADIANOS(E2-E3))))*1,15

    [Você precisa estar registrado e conectado para ver esta imagem.]

    o que ela faz pega as coordenadas de latitude e longitude e me retorna o quilometro total entre uma cidade e outra, estava a utilizar uma api do google maps mas simplesmente não funciona mais nem nas aplicações antigas, então resolvi pegar as coordenadas de todas as cidades brasileiras, utilizo um dlookup que me retorna a latitude e longitude

    e ao clicar de um botão preciso que a formula acima me retorna o calculo certo.

    segue link do anexo com a planilha e um access iniciado:

    dropbox.com/s/bdw0dm7bgs0cktq/Localizacao.zip?dl=0


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 22/11/2016

    Re: [Resolvido]Conversão matemática Latitude e Longitude (km total)

    Mensagem  IvanJr. em 11/10/2018, 22:09

    Grande Avelino Sampaio... tinha parado no ACOS mas já tinham tratado disso [Você precisa estar registrado e conectado para ver este link.] no fórum

    Código:
    Dim MeuResultado As Double, x As Double

    x = Cos((90 - Me.txtD2) * ((22 / 7) / 180)) * Cos((90 - Me.txtD3) * ((22 / 7) / 180)) + Sin((90 - Me.txtD2) * ((22 / 7) / 180)) * Sin((90 - Me.txtD3) * ((22 / 7) / 180)) * Cos((Me.txtE2 - Me.txtE3) * ((22 / 7) / 180))
    MeuResultado = 6371 * ((Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)) * 1.15)
    Me.txtResultado = MeuResultado
    Anexos
    Database4.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (145 Kb) Baixado 1 vez(es)

    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 22/11/2016

    Re: [Resolvido]Conversão matemática Latitude e Longitude (km total)

    Mensagem  IvanJr. em 11/10/2018, 22:16

    Utinha utilizado 22/7 para me aproximar de pi, mas 4.0 * Atn(1.0) é o mais correto

    Código:
    Dim MeuResultado As Double, x As Double

    x = Cos((90 - Me.txtD2) * ((4.0 * Atn(1.0)) / 180)) * Cos((90 - Me.txtD3) * ((4.0 * Atn(1.0)) / 180)) + Sin((90 - Me.txtD2) * ((4.0 * Atn(1.0)) / 180)) * Sin((90 - Me.txtD3) * ((4.0 * Atn(1.0)) / 180)) * Cos((Me.txtE2 - Me.txtE3) * ((4.0 * Atn(1.0)) / 180))
    MeuResultado = 6371 * ((Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)) * 1.15)



    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 754
    Registrado : 09/11/2012

    Re: [Resolvido]Conversão matemática Latitude e Longitude (km total)

    Mensagem  =>Nois em 11/10/2018, 23:08

    Shocked Achei que tinha lançado um desafio Exclamation

    cheers Show meu amigo! muito obrigado!


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

      Data/hora atual: 18/10/2018, 18:07