#Disable Warning BC40000 Option Strict Off Option Explicit On Imports Microsoft.VisualBasic.Compatibility Public Module modBLCalc Private Const PI As Double = 3.14159265358979 ''' <summary> ''' ２点間の距離 ''' </summary> ''' <param name="lngLon1">経度 ミリ秒形式（1を1ミリ秒としたInt32型）</param> ''' <param name="lngLat1">緯度 ミリ秒形式（1を1ミリ秒としたInt32型）</param> ''' <param name="lngLon2">経度 ミリ秒形式（1を1ミリ秒としたInt32型）</param> '''