球面三角法による距離計算 - 技術情報Wiki→測地系と投影 Private Const mATN1P45 = 0.0174533 'atn(1)/45 Private Const ER = 6378.14 Private Const PI = 3.14159265358979 'LHT座標値例 '北緯36度30分 → 365000 '南緯40度45分 → - 407500 '北緯136度30分 → 1365000 '南緯140度45分 → -1407500 Option Explicit '位置と距離と方位を指定して目的位置を求める Public Sub GetPos_Kyorihoui(ByVal Mypx&, ByVal Mypy&, ByVal Kyori#, ByVal Houi#, Topx&, Topy&) 'Mypx 基準位置経度 Mypy 基準位置緯度 LHT座標 'Kyori 距離 km Houi 方位 度 'To
