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

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/28 15:43:28
如何在vb里将“度”转换为“度分秒”,如12.56°转换为12°33′36″,
x){ީO(KztCۣ9Ow-{05z=ٱ "I@qC#=SCJ m06~԰Qf"}_`gCKW'**Ձy)@g^F&j$**h*h)@dra2R@V45CTbX@VPWqݓ͛d ׾'3 Ce';; nlzu^dǪ';zOYtɬ@ \dGY- @*!cl 5 CBDӎf/.H̳0S$

如何在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就是秒