Tag: haversine

VBA半胱氨酸配方

我正在尝试将Haversine公式引入excel函数。 它看起来像这样： Public Function Haversine(Lat1 As Variant, Lon1 As Variant, Lat2 As Variant, Lon2 As Variant) Dim R As Integer, dlon As Variant, dlat As Variant, Rad1 As Variant Dim a As Variant, c As Variant, d As Variant, Rad2 As Variant R = 6371 dlon = Excel.WorksheetFunction.Radians(Lon2 – Lon1) dlat = Excel.WorksheetFunction.Radians(Lat2 – Lat1) […]