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