如何在vb里将“度”转换为“度分秒”,如12.56°转换为12°33′36″,

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/30 19:56:47
如何在vb里将“度”转换为“度分秒”,如12.56°转换为12°33′36″,如何在vb里将“度”转换为“度分秒”,如12.56°转换为12°33′36″,如何在vb里将“度”转换为“度分秒”,如12

如何在vb里将“度”转换为“度分秒”,如12.56°转换为12°33′36″,
如何在vb里将“度”转换为“度分秒”,如12.56°转换为12°33′36″,

如何在vb里将“度”转换为“度分秒”,如12.56°转换为12°33′36″,
a = 12.56
d = Int(a)
f = Int((a - d) * 60)
m = Int(((a - d) * 60 - f) * 60)
dfm = d & "°" & f & "'" & m & """"
Print "转换结果"; dfm
原理:
12.56
那么12就是度,这个不用多说
剩下的 0.56 * 60 = 33.6
那么33就是分
剩下的 0.6 * 60 = 36
则36就是秒