Programación

Visual Basic .Net

Cálculo de distancia entre coordenadas

Última actualización: 29-10-2017 10:57
Public Class MathFx

    ''' <summary>
    ''' Cambio de grados a radianes
    ''' </summary>
    ''' <param name=value">Valor a pasar a radianes</param>"
    ''' <returns>Radianes</returns>
    Public Shared Function toRad(ByVal value As Double) As Double
        Return value * Math.PI / 180
    End Function



    ''' <summary>
    ''' Distancia en metros entre coordenadas
    ''' </summary>
    ''' <param name=lat1">Latitud de la primera coordenada</param>"
    ''' <param name=lng1">Longitud de la primera coordenada</param>"
    ''' <param name=lat2">Latitud de la segunda coordenada</param>"
    ''' <param name=lng2">Longitud de la segunda coordenada</param>"
    ''' <returns>Distancia en metros</returns>
    Public Shared Function distanceBetween(ByVal lat1 As Double, ByVal lng1 As Double,
                                             ByVal lat2 As Double, ByVal lng2 As Double
                                             ) As Double
        Dim a As Double, b As Double
        Dim r As Double = 6371 * 1000 'Radio de la tierra para obtener metros
        Dim dLat As Double = toRad(lat2 - lat1)
        Dim dLng As Double = toRad(lng2 - lng1)

        a = Math.Pow(Math.Sin(dLat / 2), 2) _
            + (
                Math.Pow(Math.Cos(toRad(lat2)), 2) _
                    * Math.Pow(Math.Sin((dLng / 2)), 2)
              )

        b = 2 * Math.Atan2(Math.Sqrt(a), Math.Sqrt(1 - a))

        Return r * b

    End Function


End Class

 

Política de Privacidad

Última actualización: 23 de diciembre de 2024
 X 

Tu privacidad es importante para nosotros. En esta política de privacidad, explicamos qué información recopilamos cuando visitas nuestro sitio web y cómo utilizamos esa información.

1. Información que recopilamos

Este sitio no recopila información personal de los usuarios, excepto cuando un usuario elige voluntariamente comunicarse a través del formulario de contacto. En ese caso, los datos proporcionados (como tu nombre y correo electrónico) se utilizarán únicamente para responder a tu consulta.

2. Uso de Cookies

Este sitio web utiliza una única cookie esencial llamada PHPSESSID.

No usamos cookies de análisis ni de seguimiento.

3. Seguridad de los datos

Adoptamos medidas técnicas y organizativas razonables para proteger cualquier información que compartas con nosotros contra el acceso no autorizado, pérdida o alteración.

4. Enlaces a sitios de terceros

Nuestro sitio web puede contener enlaces a otros sitios web. No somos responsables de las prácticas de privacidad ni del contenido de dichos sitios.

5. Cambios en esta política de privacidad

Nos reservamos el derecho de actualizar esta política de privacidad en cualquier momento. Cualquier cambio será publicado en esta misma página e incluirá la fecha de la última actualización.

6. Contacto

Si tienes preguntas o inquietudes sobre esta política de privacidad, puedes comunicarte con nosotros a través de la página de contacto disponible en este sitio web.

7. Cumplimiento con Normativas Internacionales de Privacidad

Nuestro sitio web cumple con las principales regulaciones internacionales de protección de datos personales para garantizar la privacidad y seguridad de los usuarios. Esto incluye, pero no se limita a, las siguientes leyes:

Si tienes preguntas o dudas sobre el cumplimiento de estas leyes, no dudes en ponerte en contacto conmigo a través de la página de contacto de este sitio web.