DMSToDeg

角度を度分秒形式から度形式に変換します。

度から度分秒に変換するにはdegToDMSを使います。

構文
DMSTODeg( str )
引数
str
度分秒「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