SpatialDB Advisor

COGO: DD2DMS Formatting a latitude/longitude decimal degree value

Many years ago I had need to annotate the lines of a cadastral (land titles) polygon with the bearing and distance of each line. The bearings and distances need to be computed from the boundary of each land parcel. The annotation had to be formatted as DD^MM’SS.SS”. This was achieved with a function called DD2DMS which I have ported from PL/SQL (see my free COGO package) for use with SQL Server 2008 Spatial.

Note that I have a schema call cogo in which I create functions like this. You can use anything you like.

/** ----------------------------------------------------------------------------------------
  * @function   : DD2DMS
  * @precis     : Function that takes a decimal latitude or longitude value and returns a formatted string.
  * @version    : 1.0
  * @usage      : Function DD2DMS(@p_dDecDeg       float,
  *                               @p_sDegreeSymbol NVarChar(1) = NULL,
  *                               @p_sMinuteSymbol NVarChar(1) = NULL,
  *                               @p_sSecondSymbol NVarChar(1) = NULL )
  *                RETURNS nvarchar(50)
  *               eg select cogo.DD2DMS(45.5083333333333),'d','m','s')
  * @param      : p_dDecDeg       : Non-NULL value in decimal degrees
  * @paramType  : p_dDecDeg       : FLOAT
  * @param      : p_sDegreeSymbol : Degree symbol, default is ^
  * @param      : p_sDegreeSymbol : NVarChar(1)
  * @param      : p_sMinuteSymbol : Degree symbol, default is '
  * @param      : p_sMinuteSymbol : NVarChar(1)
  * @param      : p_sSecondSymbol : Degree symbol, default is "
  * @param      : p_sSecondSymbol : NVarChar(1)
  * @return     : DMS String      : Formatted String.
  * @returnType : DMS String      : NVarChar(50).
  * @history    : Simon Greener - Apr 2007 - Original coding.
  * @history    : Simon Greener - May 2011 - Ported to TSQL
  * @copyright  : Licensed under a Creative Commons Attribution-Share Alike 2.5 Australia License. 
  *              (http://creativecommons.org/licenses/by-sa/2.5/au/)
**/
CREATE FUNCTION [cogo].[DD2DMS](@p_dDecDeg       Float,
                                @p_sDegreeSymbol NVarChar(1) = NULL,
                                @p_sMinuteSymbol NVarChar(1) = NULL,
                                @p_sSecondSymbol NVarChar(1) = NULL )
RETURNS nvarchar(50)
AS
BEGIN
    DECLARE
        @iDeg Int,
        @iMin Int,
        @dSec Float,
        @sDegSymbol NVARCHAR(1) = CASE WHEN @p_sDegreeSymbol IS NULL THEN '^'  ELSE @p_sDegreeSymbol END,
        @sMinSymbol NVARCHAR(1) = CASE WHEN @p_sMinuteSymbol IS NULL THEN '''' ELSE @p_sMinuteSymbol END,
        @sSecSymbol NVARCHAR(1) = CASE WHEN @p_sSecondSymbol IS NULL THEN '"'  ELSE @p_sSecondSymbol END;
    BEGIN
        SET @iDeg = Cast(@p_dDecDeg as Int);
        SET @iMin = Cast(((Abs(@p_dDecDeg) - Abs(@iDeg)) * 60) as Int);
        SET @dSec = Round((((Abs(@p_dDecDeg) - Abs(@iDeg)) * 60) - @iMin) * 60, 3);
        Return STR(@iDeg,4,0) + @sDegSymbol + STR(@iMin,2,1) + @sMinSymbol + STR(@dSec,5,3) + @sSecSymbol;
    END;
END
GO

Some test cases as examples.

select cogo.DD2DMS(NULL,NULL,NULL,NULL) as DMS
UNION
select cogo.DD2DMS(45.5083333333333,NULL,NULL,NULL)  as DMS
UNION
select cogo.DD2DMS(cogo.DMS2DD(-44,10,50),null,null,null) as DMS
UNION 
select cogo.DD2DMS(cogo.DMS2DD(-44,10,50),'d','m','s') as DMS;

I hope this is helpful to someone.