[求助]VB.NET中有没有将角度（弧度<--->度分秒)相互转换的函数，如果没有希望各位能提供!!!

wcbao 2006-01-10 08:28:12

...全文

624 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

wcbao 2006-01-10

打赏
举报

谢谢以上各位了

weiyan19820315 2006-01-10

打赏
举报

弧度＝ degree * PI / 180.0
角度＝弧度* 180 / Pi

咚咚锵 2006-01-10

打赏
举报

/// <summary>
/// 将参数angle由弧度转换成角度，并以度,分,秒的先后顺序存放在字符串数组中
/// </summary>
/// <param name="angle">弧度</param>
/// <returns>度分秒按顺序表示的字符串数组</returns>
/// <remarks>不可以转换负的角度</remarks>
public static string[] RadToDegree(double angle)
{
int du;
int fen;
double miao;

du=(int)System.Math.Floor(angle/System.Math.PI*180.0);
fen=(int)System.Math.Floor((angle/System.Math.PI*180-du)*60.0);
miao=System.Math.Round((angle/System.Math.PI*180-du-(double)fen/60.0)*36000)/10;
if(miao==60)
{
miao=0;
fen+=1;
}
if(fen==60)
{
fen=0;
du+=1;
}
return new string[]{du.ToString(),fen.ToString(),miao.ToString()};
}
/// <summary>
/// 将－50/23/34 形式所表示的度数（－50度23分34秒）转换为弧度
/// </summary>
/// <param name="degree">－50/23/34 形式所表示的度数（－50度23分34秒）</param>
/// <returns>该字符串所表示的度数</returns>
public static double DegreeToRad(string degree)
{
string[] d=degree.Split(new char[]{'/'});
if(d.Length==0)
{
return 0;
}
if(d.Length==1)
{
degree=degree+"/0/0";
}
if(d.Length==2)
{
degree=degree+"/0";
}
d=degree.Split(new char[]{'/'});
double[] t=new double[]{double.Parse(d[0]),double.Parse(d[1]),double.Parse(d[2])};
return System.Math.Sign(t[0])*RoadMapGet.staticRoadMapGet.getRadbyDegree(System.Math.Abs(t[0])+t[1]/60.0+t[2]/3600.0);
}