本ページには広告が含まれています。
角度を度分秒形式から度形式に変換します。
度から度分秒に変換するにはdegToDMS関数 (自作関数)を使います。
- 構文
- DMSTODeg( str )
- 引数
- str （String）必須
- 度分秒「deg°分'秒"」形式の文字列
- 戻り値
- 角度
プログラム
//////////////////////////////////////////////////
// 【引数】
// str : 度分秒「deg°分'秒"」形式の文字列
// 【戻り値】
// 角度
//////////////////////////////////////////////////
FUNCTION DMSTODeg(str)
DIM degree = VAL(COPY(str, 1, POS("°", str) - 1))
DIM minute = VAL(COPY(str, POS("°", str) + 1, POS("'", str) - POS("°", str) - 1))
DIM second = VAL(COPY(str, POS("'", str) + 1, POS("<#DBL>", str) - POS("'", str) - 1))
RESULT = degree + (minute / 60) + (second / 3600)
FEND使い方
スカイツリーの座標を度分秒形式から度分秒式に変換
PRINT DMSToDeg("35°42'36.02484<#DBL>")
PRINT DMSToDeg("139°48'38.91708<#DBL>")- 結果
35.7100069 139.8108103