在一个Excel单元格中实现度、分、秒转换

wuchujie

   怎样在Excel一个 单元格中输入度分秒再转换成小数度或弧度一直困绕许多测量同行，网上有许多用VBA 编辑的自定义函数当然可行，但对大多数不会编辑VBA的测量同行而言，这不仅存在编辑上的困难，也存在调用上的不方便。为此，我直接用公式在EXCEL中轻松实现了在一单元格中对度、分、秒的转换，转换后的角度精度等同转换前，现介绍：
  1、度、分、秒在一个单元格中转换成小数度。设A1为输入的度、分、秒单元格，B1为小数度单元格，若A1=256.3246（读着256度32分46秒），则：
    B1=INT（A1）+INT（100*MOD（A1，1））/60+MOD（A1*100,1）/36
  2、度、分、秒在一个单元格中转换成弧度。设置引用同上.
    B1=RADIANS(INT（A1）+100*MOD（A1，1）/60+MOD（A1*100,1）/36)
这样就轻松实现了在一个单元格中对角度的转换运算,比在三个单元格中分别输入度、分、秒的格式简单适用，也可以解决VBA编辑的困难和调用的复杂性，使用时，只需在需要进行换算的单元格中复制或粘贴公式即可进行计算。
   3、考虑负角度输入时，公式应修改为：
   B1=SIGN(B1)*RADIANS(INT（ABS(A1）)+100*MOD（ABS(A1)，1）/60+MOD（ABS(A1)*100,1）/36)