夜雨聆风
@
分享测绘学科相关的信息，转载请注明
来源GEOsurvey
十进制经纬度转度分秒
如何将十进制经纬度批量转换为度分秒格式？可通过Excel表格轻松实现，操作方法如下：
1、Excel表中新建模块插入以下代码
2、在A列中输入十进制经纬度
3、在B1单元格中输入内容“=DecimalToDMS(A1)”，向下填充。
@
分享测绘学科相关的信息，转载请注明
来源GEOsurvey
十进制经纬度转度分秒
如何将十进制经纬度批量转换为度分秒格式？可通过Excel表格轻松实现，操作方法如下：
1、Excel表中新建模块插入以下代码
2、在A列中输入十进制经纬度
3、在B1单元格中输入内容“=DecimalToDMS(A1)”，向下填充。
十进制经纬度转度分秒
如何将十进制经纬度批量转换为度分秒格式？可通过Excel表格轻松实现，操作方法如下：
1、Excel表中新建模块插入以下代码
2、在A列中输入十进制经纬度
3、在B1单元格中输入内容“=DecimalToDMS(A1)”，向下填充。
Function DecimalToDMS(DecimalDeg As Double) As String Dim deg As Integer, min As Integer, sec As Double Dim sign As String ' 处理方向（北纬/东经为正，南纬/西经为负） If DecimalDeg < 0 Then sign = "-" DecimalDeg = -DecimalDeg Else sign = "" End If deg = Int(DecimalDeg) min = Int((DecimalDeg - deg) * 60) sec = (DecimalDeg - deg - min / 60) * 3600' 格式化为 度°分'秒" （秒保留两位小数） DecimalToDMS = sign & deg & "°" & Format(min, "00") & "'" & Format(sec, "00.00") & """"End Function
联系小编
微信号：CeHui_88
公众号资源｜技术服务
申明：本公众号内容旨在传播知识，若有侵权等问题请即时与本号联系删除。
-----END-----
往期 · 推荐
申明：本公众号内容旨在传播知识，若有侵权等问题请即时与本号联系删除。
-----END-----
往期 · 推荐
