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