儒略日公历年月日之间的转换以及儒略日的应用.docx

作业要求编写程序实现以下任务：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) / 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.Truncate(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,M1,D1,Y2,M2,D2,JGTS; if (Year31.Text == || Month31.Text == || Day31.Text == || Year31.Text == || Month31.Text == || Day31.Text == ) { MessageBox.Show(输入的日期不能为空！); } else { Y1 = double.Parse(Year31.Text); M1 = double.Parse(Month31.Text); D1 = double.Parse(Day31.Text); JDtime1 = GLToJD(Y1, M1, D1); Y2 = double.Parse(Year32.Text); 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 == ) { MessageBox.Show(输入的日期不能为空！); } else { Y = 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) { weekDay.Text = 星期四; } if (XQ == 5) { weekDay.Text = 星期五; } if (XQ == 6) { weekDay.T