现在想把弧度转换成度分秒~ 希望能给个过程啊 详细的 直接打上去能用的~谢谢啊~ 貌似我觉得挺复杂的~
现在想把弧度转换成度分秒~ 希望能给个过程啊 详细的 直接打上去能用的~谢谢啊~ 貌似我觉得挺复杂的~
Private Sub Command1_Click()
Dim a#, b#, c#, d#
Const pi = 3.141592657
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
Text4.Text = pi * (a + b / 60 + c / 3600) / 180
End Sub
Private Sub Command2_Click()
d = Val(Text4.Text)
Text1.Text = Int(180 * d)
Text2.Text = Int(60 * (180 * d - Int(180 * d)))
Text3.Text = CLng(60 * (180 * d - Int(180 * d)) - Int(60 * (180 * d - Int(180 * d))))
End Sub
我有工程,要的话 772671249,其实直接粘贴到vb中就中控件如图