MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

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

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  =>Nois 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

    latitude - [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


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 11/10/2018, 22:09

    Grande Avelino Sampaio... tinha parado no ACOS mas já tinham tratado disso https://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
    latitude - [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 27 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 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 : Respeito às Regras 100%

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

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

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

    Shocked Achei que tinha lançado um desafio Exclamation

    cheers Show meu amigo! muito obrigado!


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken

      Data/hora atual: 5/12/2022, 17:17