---

Function distance_to_line(pin_lat As Double, pin_lon As Double, cb_lat As Double, 
cb_lon As Double, point_lat As Double, point_lon As Double)
    Pi = 4 * Atn(1)
    lon_factor = 60 * Cos(pin_lat * Pi / 180)
    lat_factor = 60
    Angle = Arc_tan2(lat_factor * (cb_lat - pin_lat), lon_factor * (cb_lon - pin_lon))
    lat_term = Sin(Angle) * lat_factor * (point_lat - pin_lat)
    lon_term = Cos(Angle) * lon_factor * (point_lon - pin_lon)
    distance_to_line = lat_term - lon_term
End Function

---

NOTICE: Some pages have affiliate links to Amazon. As an Amazon Associate, I earn from qualifying purchases. Please read website Cookie, Privacy, and Disclamers by clicking HERE. To contact me click HERE. For my YouTube page click HERE

---