wuchujie 发表于 2011-4-28 15:05:54

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



   怎样在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)
页: [1]
查看完整版本: 在一个Excel单元格中实现度、分、秒转换