引用 角度的度分秒与小数点格式互相转换

heart

一、角度的度分秒与小数点格式互相转换
EXCEL能将角度转换成度"°"分"′"秒"″"格式吗?
如将:120.999722222222°转换成120°59′59″.
     32.55°转换成32°33′0″
我知道可以用函数RADIANS将角度转换为弧度，但 我们 工程测量上用到的角度计算是以度分秒（比如：126°12′36″）来记录并进行计算的，在Excel中怎样用这些数据进行计算？
1.设定公式“=A1/24”,并将单元格的格式设定为自定义格式:[h]°mm′ss″
2.直接设定公式=TEXT(A1/24,"[h]°mm′ss″")
第1种方法，方便于在计算时将度分秒转为度，这时只需乘24即可
第2种方法，度分秒转为度时，需要用公式=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(B1,"°",":"),"′",":"),"″",)*24
(度分秒符号用单位软键盘上的符号)
二、度/分/秒的输入问题
在工程计算中经常要用到度、分、秒，通常的做法就是插入特殊字符来输入。但是在EXCEL中显示的结果却不近人意，三者之间的字符间距太大，看起来就象刚学会写字的人写的 东西 。其实这是由字体引起来的，一般情况下 系统 默认的字体是宋体，在这种情况下输入度分秒的时候，它们之间的间距就会比较大。下面几种字体的效果就比较好：
Arial Unicode Ms , Batang , Dotum , Gungsuh , New Gulim , Gulim 。
当然也不只是这几种，大家也可以自己 测试 一下，找一下其它合适的字体。
用VBA
Function NtoD(num)
   Dim D As Integer
   Dim M As Integer
   Dim S As Single
   Dim M1 As String
   Dim S1 As String
D = Fix(num)
   M = Fix((num - D) * 60)
   S = Fix(((num - D) * 60 - M) * 60)
 M1 = Format(M, "00")
   S1 = Format(S, "00")
   NtoD = D & "°" & M1 & "′" & S1 & "″"
 End Function