Question

求助各位大神，vb中在通用里面定义一小数度转化成度分秒格式的度数的函数。帮我看看那错了，运算结果=0

Function jdhs(xsd As Double) As Double
Dim c1#, c2#, c3#
Dim hs As Integer
hs = Sgn(xsd)
xsd = Abs(dms)
c1 = Int(xsd)
c2 = Int((xsd - c1) * 60 * 100)
c3 = ((xsd - c1) * 60 * 100 - c2) * 60
jdhs = sign * (c1 + c2 / 100 + c3 / 10000)
end。。。。。。

Answer 1

用高级一点的计算器可以直接的按出来.就按上面的那个《., ,》键! 步骤就是按出0.27027027在按下度分秒（., ,）键
没有这个键的计算器也是可以算出来的.上面的0.27027027前面的《0》就是指度数；再用0.27027027*60=16.2162162,此时的《16》为分；最后用0.2162162*60=12.9729972,《12.9729972》这个结果用四舍五入法约等于13,而《13》即为秒。

追问

明白你说的意思，我在做一个vb程序要用到这个程序，现在是代码编不出来,代码就是按你说的手算哪个输入的，然后计算结果不对，。。很是郁闷啊啊啊啊啊啊