角度转弧度

Question

数据如下: 20 ,民V5017, 2.15, 206.4857, 89.5433, 320.498, 26.491, 270.0529, 320.498  
我要把第五个数据(89.5433)和最后一个数据(320.798)代入dd = Sin(ud) * rd 这里ud为(89.5433)rd为(320.798) 
其中89.5433为角度   sim(89.5433)  要先把89.5433化为弧度才能计算 如何才能把89.5433转为弧度再赋值给ud呢        
       弧度=PI*角度/180     角度=度+分/60+秒/3600(这里是把分秒化为度) 

Answer 1

Private Sub Command1_Click()
Dim s As String, t() As String
s = "20 ,ÃñV5017, 2.15, 206.4857, 89.5433, 320.498, 26.491, 270.0529, 320.498   "
t = Split(s, ",")
MsgBox "Sin(ud) * rd=" & Sin(t(4) * Atn(1) / 45) * Val(t(UBound(t)))
End Sub

Answer 2

计算出来的结果错了    你的结果是:320.48781854
我用计算机计算出来的是:sim(89度54分33秒)*320.498=320.497597245535
麻烦再帮忙看看

Answer 3

楼主意思说的不明白 89.5433 表示89度54分33秒，所以1楼当成度的表示法了
sin((89+54/60+33/3600)*atn(1)/45) 这样就和楼主的结果一样了。
至于怎么把t(4）分解成三部分，有很多方法，我就不列举了。

Answer 4

89.5433(度)=89.5433*3.1415926535/180(弧度)这里有正弦画图的例子:  http://topic.csdn.net/u/20080407/09/36face9f-b5e6-4097-b4e7-002a7a322203.html

Answer 5

换算公式:n(度)=n*PI/180(弧度),PI=3.1415926535

Answer 6

谢谢
我自己用这种方法解结了
t = Split(aa, ",")
b = t(4)
z = Mid(b, 2, 2)     '度
e = Mid(b, 5, 2)     '分
h = Mid(b, 7, 2)     '秒jd = Val(z) + Val(e) / 60 + Val(h) / 3600
ud = pi * jd / 180
dd = Sin(ud) * Val(t(UBound(t)))
MsgBox dd