GEOGRAPHY SQL Server The STDistance function returns a greater difference than other test results

Question

I calculate the distance in meters between two long lat values ​​- 40.1844441 -77.2252771 and
40.319166 -76.7880552

I checked the distance between the two points below the two websites - http://www.nhc.noaa.gov/gccalc.shtml and http://www.movable-type.co.uk/scripts/latlong.html
Both of these The website returns approximately 40,014 meters.

So, I use the GEOGRAPHY SQL Server data type to calculate the distance between the two points again, and it returns 48927 meters. For me this is a huge difference.
Below is my code and any suggestion is appreciated.

declare @latlong1 GEOGRAPHY
declare @latlong2 GEOGRAPHY
DECLARE @distance float

set @latlong1 = GEOGRAPHY::STGeomFromText('POINT(40.1844441 -77.2252771)', 4326)
set @latlong2 = GEOGRAPHY::STGeomFromText('POINT(40.319166 -76.7880552)', 4326)

SET @distance = @latlong1.STDistance(@latlong2)
SELECT @distance -- this returns 48927 meters

Answer 1

, :: Point(), , , . 2 80 UDF, , , .

declare @latlong1 GEOGRAPHY
declare @latlong2 GEOGRAPHY

Set @latlong1 = GEOGRAPHY::STGeomFromText('POINT(40.1844441 -77.2252771)',4326)
Set @latlong2 = GEOGRAPHY::STGeomFromText('POINT(40.319166  -76.7880552)',4326)

Select VeryOdd = @latlong1.STDistance(@latlong2)
      ,SQLGeo  = geography::Point(40.1844441, -77.2252771, 4326).STDistance(geography::Point(40.319166,-76.7880552, 4326)) 
      ,UDFGeo  = [dbo].[udf-Geo-Meters](40.1844441,-77.2252771,40.319166,-76.7880552)

VeryOdd             SQLGeo              UDFGeo
48927.1485292471    40093.8055001913    40014.8833526855

UDF if Interest

CREATE Function [dbo].[udf-Geo-Meters](@Lat1 FLOAT, @Lng1 FLOAT, @Lat2 FLOAT, @Lng2 FLOAT)
Returns Float as
Begin
    Return ACOS(SIN(PI()*@Lat1/180.0)*SIN(PI()*@Lat2/180.0)+COS(PI()*@Lat1/180.0)*COS(PI()*@Lat2/180.0)*COS(PI()*@Lng2/180.0-PI()*@Lng1/180.0)) * 6371008.8
    -- 6.371 mean radius of earth in meters
End

Answer 2

lat lon "VeryOdd", .. POINT(-77.2252771 40.1844441) POINT(-76.7880552 40.319166).

" " 48733 , 0,4% VeryOdd 48927 .

, /.

: STGeomFromText ('POINT ( )' .. - : ,

. : / (SQL Server)

, - , / / 4326...