Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports Microsoft.SqlServer.Server
Imports TDPG.GeoCoordConversion


Partial Public Class UserDefinedFunctions

    <SqlFunction()> _
    Public Shared Function udf_ConvertGridToCoord(ByVal Easting As SqlInt32, ByVal Northing As SqlInt32) As SqlString

        Dim Grid = New TDPG.GeoCoordConversion.GridReference(Easting, Northing)
        Dim Coordinates As TDPG.GeoCoordConversion.PolarGeoCoordinate
        Coordinates = GridReference.ChangeToPolarGeo(Grid)
        Return (Coordinates.Lon.ToString + " " + Coordinates.Lat.ToString)

    End Function


End Class