《儒略日、公历年月日之间的转换以及儒略日的应用》由会员分享，可在线阅读，更多相关《儒略日、公历年月日之间的转换以及儒略日的应用（8页珍藏版）》请在金锄头文库上搜索。
1、精品文档作业要求编写程序实现以下任务：1.1 由公历年月日化为儒略日1.2 由儒略日转化为公历年月日1.3 儒略日的应用1.3.1 计算两个日期间的间隔天数1.3.2 计算星期几1.3.3 计算年积日（DOY）1.3.4 由年积日计算年月日程序设计2.1 窗体设计2.2 代码实现2.2.1 由公历年月日化为儒略日/ 由公历年月日转化为儒略日的函数public double GLToJD( double Y, double M, double D)double JDtime;JDtime = 367 * Y -Math.Truncate(7 * (Y + Math.Truncate(M + 9)
2、 / 12) / 4) +Math.Truncate(275 * M / 9) + D + 1721013.5;return JDtime;2.2.2 由儒略日转化为公历年月日/ 由儒略日转化为公历年月日的函数public void JDToGL( double JDtime, out double Y, out double M, out double D) double a, b, c, d, e;a =Math.Truncate(JDtime + 0.5);b = a + 1537;c =Math.Truncate(b - 122.1) / 365.25);d =Math.Truncat
3、e(365.25 * c);e =Math.Truncate(b-d)/30.6001);D=b-d- Math.Truncate (30.6001*e)+JDtime+0.5- Convert .ToInt32(JDtime+0.5);M = e - 1 -Math.Truncate(e / 14) * 12;Y = c - 4715 -Math.Truncate(7 + M) / 10);2.2.3 计算两个日期间的间隔天数private void JGTSbutton_Click( object sender, EventArgs e)double JDtime1, JDtime2,Y1
4、,M1,D1,Y2,M2,D2,JGTS;if (Year31.Text = | Month31.Text = | Day31.Text = | Year31.Text= | Month31.Text = | Day31.Text = )MessageBox.Show( 输入的日期不能为空！ ); elseY1 =double.Parse(Year31.Text);M1 =double.Parse(Month31.Text);D1 =double.Parse(Day31.Text);JDtime1 = GLToJD(Y1, M1, D1);Y2 =double .Parse(Year32.Te
5、xt);M2 =double .Parse(Month32.Text);D2 =double .Parse(Day32.Text);JDtime2 = GLToJD(Y2, M2, D2);JGTS =Math.Abs(JDtime2 - JDtime1);JG.Text = JGTS.ToString();2.2.4 计算星期几private void XQbutton_Click( object sender, EventArgs e) double JDtime,Y,M,D, XQ;if (Year4.Text = | Month4.Text = | Day4.Text = )Messa
6、geBox.Show( 输入的日期不能为空！ );elseY =double .Parse(Year4.Text);M =double .Parse(Month4.Text);D =double .Parse(Day4.Text);JDtime = GLToJD(Y, M, D);XQ = (JDtime + 1.5) % 7;if (XQ = 0)weekDay.Text = 星期日 ;if (XQ = 1)weekDay.Text = 星期一 ;if (XQ = 2)weekDay.Text = 星期二 ;if (XQ = 3)weekDay.Text = 星期三 ;if (XQ = 4)
7、weekDay.Text = 星期四 ;if (XQ = 5)weekDay.Text = 星期五 ;if (XQ = 6)weekDay.Text = 星期六 ;2.2.5 计算年积日private void NJRbutton_Click( object sender, EventArgs e)double Y,M,D,JDtime1,JDtime2;if (Year5.Text = | Month5.Text = | Day5.Text = )MessageBox.Show( 输入的日期不能为空！ );elseY =double.Parse(Year5.Text);M =double.P
8、arse(Month5.Text);D =double.Parse(Day5.Text);JDtime1 = GLToJD(Y,M-1,D);JDtime2 = GLToJD(Y,0,0 );NJR1.Text = (JDtime1-JDtime2).ToString();2.2.6 由年积日计算年月日private void NJRTONYRbutton_Click( object sender, EventArgs e)double JDtime, Y1, Y, M, D,NJR;if (Year6.Text = | NJR2.Text = )MessageBox.Show( 输入的日期不
9、能为空！ );elseNJR =double .Parse(NJR2.Text);Y1 =double .Parse(Year6.Text);JDtime = GLToJD(Y1, 0, 0) + NJR+30;# 欢迎下载 。精品文档JDToGL(JDtime ,out Y, out M, out D);textBoxl.Text = JDtime.ToString ();GLNYR.Text = Y.ToString() +“年+ M.ToString() +月+ D.ToString() +日; 2.3 运行结果#欢迎下载欢迎您的下载,资料仅供套考!致力为企业和个人提供合同协议， 策划案计划书，学习资料等等打造全网一站式需求
