UC知道VBA程序用split如何识别 度°分’秒”,请教,急
来源：百度知道 编辑：UC知道 时间：2024/06/06 17:46:51
Public Function zhuanhuan2(Du) '度分秒转换成角度十进制格式
Dim jiaozhi As Single '角值
Dim duzhi '度
Dim fan As Single
Dim miao As Single
If Du = "" Then
zhuanhuan2 = ""
Exit Function
End If
duzhi = Split(Du, ": ")
jiaozhi = Int(duzhi(0))
jiaozhi = jiaozhi + (duzhi(1) / 60)
jiaozhi = jiaozhi + (duzhi(2) / 3600)
zhuanhuan2 = jiaozhi
End Function
以上程序举例!!
32:34:11.53198 可转换成32.56987 但是换成格式
32°34’11.53198”
应该怎样写啊??
Dim jiaozhi As Single '角值
Dim duzhi '度
Dim fan As Single
Dim miao As Single
If Du = "" Then
zhuanhuan2 = ""
Exit Function
End If
duzhi = Split(Du, ": ")
jiaozhi = Int(duzhi(0))
jiaozhi = jiaozhi + (duzhi(1) / 60)
jiaozhi = jiaozhi + (duzhi(2) / 3600)
zhuanhuan2 = jiaozhi
End Function
以上程序举例!!
32:34:11.53198 可转换成32.56987 但是换成格式
32°34’11.53198”
应该怎样写啊??
Public Function zhuanhuan2(Du) '度分秒转换成角度十进制格式
Dim jiaozhi As Single '角值
Dim duzhi '度
Dim fan As Single
Dim miao As Single
dim p0,p1,p2
If Du = "" Then Exit Function
p0=instr(du,"°")
p1=instr(du,"'")
p2=instr(du,"”")
jiaozhi = Int(mid(du,0,p0-1))
jiaozhi = jiaozhi + (mid(du,p0+1,p1-p0-2) / 60)
jiaozhi = jiaozhi + (mid(du,p1+1,p2-p1-2) / 3600)
zhuanhuan2 = jiaozhi
End Function
要是回答的内容有问题，或认为不妥，请发送百度消息给我，消息内容加上本页网址哦。。
·