簡易な距離演算その2 精度は、近距離では（少なくとも20km程度）その1の方法と大して変わらない。 参考：http://homepage3.nifty.com/kubota01/distance.htm 距離が50kmを超えるようなら、こちらのメソッドの方が実際の距離を表すと思う。 [2011/7/18　追記] 現時点ではXYZの直交座標系への変換精度が悪く、極近距離で精度が出ない。

public double GetDistance2(
	BLH secondPos
)

Public Function GetDistance2 ( _
	secondPos As BLH _
) As Double

public:
double GetDistance2(
	BLH secondPos
)