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 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 DD2DMS(NULL,NULL,NULL,NULL) AS DMS UNION SELECT DD2DMS(45.5083333333333,NULL,NULL,NULL) AS DMS UNION SELECT DD2DMS(DMS2DD(-44,10,50),NULL,NULL,NULL) AS DMS UNION SELECT DD2DMS(DMS2DD(-44,10,50),'d','m','s') AS DMS;
Results
| DMS |
|---|
| NULL |
| 45^30’30.00” |
| -44^10’50.00” |
| -44d10m50.00s |
I hope this is helpful to someone.