çƒé¢ä¸‰è§’法ã«ã‚ˆã‚‹è·é›¢è¨ˆç®— - æŠ€è¡“æƒ…å ±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
{{#tags}}- {{label}}
{{/tags}}