作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/23 03:15:54
如何在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就是秒