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

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息