经纬度转换度分秒
-
2023年3月16日发(作者：方便英文)⼗进制度分秒lisp函数_⼗进制经纬度与度分秒格式相互转
换Excel
每次出完野外回来处理GPS坐标数据时，都⾯临⼗进制和度分秒之间的转换问题，今天就来研究⼀下。
⼗进制转度分秒
假设excel表格A2单元格中存储的是⼀个⼗进制的坐标值，想在B2单元格中得到度分秒坐标值并显⽰度分秒符号，计算公式则为
B2=TEXT(INT(A2),"0")&"°"&TEXT(INT((A2-INT(A2))*60),"00")&"′"&TEXT(((A2-INT(A2))*60-INT((A2-
INT(A2))*60))*60,"00.0000")&"″"
效果：A2：38.927483317
B2：38°55′38.9399″
其中，text函数是将数字转换成⽂本显⽰的函数，最后的00.0000是⽤来调节秒的⼩数点后保留位数的。text函数之间⽤&连接。
度分秒转⼗进制
假设excel表格A2单元格中存储的是⼀个带度分秒符号的的坐标值，想在B2单元格中得到⼗进制坐标值，计算公式则为
B2=ROUND(IF(ISERROR(MID(A1,1,FIND("°",A1)-1)),0,MID(A1,1,FIND("°",A1)-
1))+IF(ISERROR(MID(A1,FIND("°",A1)+1,FIND("′",A1)-FIND("°",A1)-1)/60),0,MID(A1,FIND("°",A1)+1,FIND("′",A1)-
FIND("°",A1)-1)/60)+IF(ISERROR(MID(A1,FIND("′",A1)+1,FIND("″",A1)-FIND("′",A1)-
1)/3600),0,MID(A1,FIND("′",A1)+1,FIND("″",A1)-FIND("′",A1)-1)/3600),4)&"°"
效果：A2：38°55′38.9399″
B2：38.9275°
公式中最后的数字4是控制⼩数点后位数的参数。
Havefun.