namespace WebApiClient.App_Code
{
    #region [Bibliotecas de clases]
    using System;
    #endregion

    /// <summary>
    /// Clase que encapsula un conjunto de funciones para calculos de distancia entre coordenadas.
    /// </summary>
    public class Distancia
    {
        #region [Variables y constantes]
        /// <summary>
        /// Variable constante que encapsula el radio de la tierra.
        /// </summary>
        public const int _RADIO_TIERRA = 6371;
        #endregion

        #region [Constructor]
        /// <summary>
        /// Constructor de la clase.
        /// </summary>
        public Distancia() { }
        #endregion

        #region [Método para obtener la distancia en metros entre dos coordenadas]
        /// <summary>
        /// Método para obtener la distancia en metros entre dos coordenadas.
        /// </summary>
        /// <param name="latitud1">Latitud de la primera coordenada.</param>
        /// <param name="longitud1">Longitud de la primera coordenada.</param>
        /// <param name="latitud2">Latitud de la segunda coordenada.</param>
        /// <param name="longitud2">Longitud de la segunda coordenada.</param>
        /// <returns>Distancia en metros.</returns>
        public int ObtenDistanciaEnMetros(double latitud1, double longitud1, double latitud2, double longitud2)
        {
            double _distancia = 0;

            try
            {
                double _latitud = (latitud2 - latitud1) * (Math.PI / 180);
                double _longitud = (longitud2 - longitud1) * (Math.PI / 180);
                double _a = Math.Sin(_latitud / 2) * Math.Sin(_latitud / 2) + Math.Cos(latitud1 * (Math.PI / 180)) * Math.Cos(latitud2 * (Math.PI / 180)) * Math.Sin(_longitud / 2) * Math.Sin(_longitud / 2);
                double _c = 2 * Math.Atan2(Math.Sqrt(_a), Math.Sqrt(1 - _a));

                _distancia = (_RADIO_TIERRA * _c) * 1000;
            }
            catch (Exception)
            {
                _distancia = -1;
            }

            return (int)Math.Round(_distancia, MidpointRounding.AwayFromZero);
        }
        #endregion

        #region [Destructor de la clase]
        /// <summary>
        /// Destructor de la clase.
        /// Invoca al Garbage Collector para liberar el objeto de memoria.
        /// </summary>
        ~Distancia() { GC.Collect(); }
        #endregion
    }
}

begin
	--Tabla temporal que se crea y llena para simular una tabla de la base de datos.
	declare @TablaOrigen table(Id int, Color varchar(10));

	insert into @TablaOrigen(Id,Color) values(1,'Azul');
	insert into @TablaOrigen(Id,Color) values(2,'Purpura');
	insert into @TablaOrigen(Id,Color) values(3,'Negro');
	insert into @TablaOrigen(Id,Color) values(4,'Cafe');
	insert into @TablaOrigen(Id,Color) values(5,'Violeta');
	insert into @TablaOrigen(Id,Color) values(6,'Naranja');
	insert into @TablaOrigen(Id,Color) values(7,'Rojo');
	insert into @TablaOrigen(Id,Color) values(8,'Verde');
	insert into @TablaOrigen(Id,Color) values(9,'Cian');
	insert into @TablaOrigen(Id,Color) values(10,'Amarillo');

	--Variables utilizadas para la concatenación.
	declare @TablaTemporal table(Elemento varchar(10));
	declare @TotalElementos int=0;
	declare @Elemento varchar(10)='';
	declare @Resultado varchar(max)='';
	declare @EsPrimerElemento bit=1;

	--Se inserta en la tabla temporal '@TablaTemporal' todos los elementos de la tabla origen '@TablaOrigen'.
	insert into @TablaTemporal(Elemento) select Color from @TablaOrigen;

	--Se asigna a la variable '@TotalElementos' el número total de registros almacenados en la tabla temporal '@TablaTemoral'.
	set @TotalElementos= (select count(Elemento) from @TablaTemporal);

	--Se recorre la tabla temporal '@TotalElementos' con el fin de ir concatenando cada uno de sus valores en la variable '@Resultado'.
	while @TotalElementos > 0
		begin				
			set @Elemento= (select top 1 Elemento from @TablaTemporal);

			if(@EsPrimerElemento=1)
				begin
					set @Resultado= @Elemento;
					set @EsPrimerElemento=0;		
				end
			else
				begin
					set @Resultado= concat(@Resultado,',',@Elemento);
				end

			delete top(1) from @TablaTemporal;

			set @TotalElementos= @TotalElementos - 1;
		end

		--Se lleva a cabo la selección de la variable '@Resultado' para visualizar el resultado del proceso de la concatenación.
		select @Resultado as 'Resultado';
end

 Resultado:

Los siguientes libros te permitirán crear aplicaciones móviles multilplataforma.

Descargar

Descargar

Descargar