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)

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

    Respeito às Regras 100%

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

    [Resolvido]Conversão matemática Latitude e Longitude (km total) Empty [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

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

    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


    .................................................................................
    Arrow Att. Nois

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

    Respeito às Regras 100%

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

    [Resolvido]Conversão matemática Latitude e Longitude (km total) Empty 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 http://www.maximoaccess.com/t29889-resolvidofuncao-arco-cosseno]aqui 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
    [Resolvido]Conversão matemática Latitude e Longitude (km total) AttachmentDatabase4.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (145 Kb) Baixado 9 vez(es)
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Conversão matemática Latitude e Longitude (km total) Empty 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)



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

    Respeito às Regras 100%

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

    [Resolvido]Conversão matemática Latitude e Longitude (km total) Empty 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!


    .................................................................................
    Arrow Att. Nois

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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/5/2019, 06:28