Function DFM(X As Single) '将度化成度
dd = Int(X * 180 / pi)
F = Int((X * 180 / pi - dd) * 60)
mm = Int((X * 180 / pi - dd - F / 60) * 3600 + 0.5)
If mm >= 60 Then F = F + 1: mm = mm - 60
If F >= 60 Then dd = dd + 1: F = F - 60
If mm = 0 And F <> 0 Then
DFM = dd & "°" & F & "′"
ElseIf mm = 0 And F = 0 Then
DFM = dd & "°"
Else
DFM = dd & "°" & F & "′" & mm & "″"
End If
End Function
发表于 2011-4-21 11:47
楼主
发表于 2011-4-23 08:07
发表于 2013-6-15 17:57
