Function ddms(a As Double) As String
Dim d As Double
Dim f As Double
Dim m As Double
d = Int(a)
f = Int((a - d) * 60)
m = Format(Int((a - d - f / 60) * 36000000) / 10000, "0.00")
ddms = d & "��" & f & "'" & m & """"
End Function
4星 · 超过85%的资源 需积分: 18 58 浏览量
2011-09-05
10:57:36
上传
评论
收藏 451B RAR 举报 
VBA代码.rar （2个子文件） 
DMS程序表.txt 209B DDMS程序表.txt 238B
- 1
- 2
前往页