《儒略日、公历年月日之间的转换以及儒略日的应用电子教案(共7页).docx》由会员分享，可在线阅读，更多相关《儒略日、公历年月日之间的转换以及儒略日的应用电子教案(共7页).docx（7页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
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.T
2、runcate(M + 9) / 12) / 4) + Math.Truncate(275 * M / 9) + D + .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 =
3、 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
4、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);
5、 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 = |
6、 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 = 星期二
7、; if (XQ = 3) weekDay.Text = 星期三; if (XQ = 4) 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(输入的日期不能
8、为空！); else Y = double.Parse(Year5.Text); M = double.Parse(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(ob
9、ject sender, EventArgs e) double JDtime, Y1, Y, M, D,NJR;虽然调查显示我们的创意计划有很大的发展空间，但是各种如“漂亮女生”和“碧芝”等连锁饰品店在不久的将来将对我们的创意小屋会产生很大的威胁。 if (Year6.Text = | NJR2.Text = ) MessageBox.Show(输入的日期不能为空！);如果顾客在消费中受到营业员的热情，主动而周到的服务，那就会有一种受到尊重的感觉，甚至会形成一种惠顾心理，经常会再次光顾，并为你介绍新的顾客群。而且顾客的购买动机并非全是由需求而引起的，它会随环境心情而转变。 培养动手能力 学一
10、门手艺 打发时间 兴趣爱好 else NJR = double.Parse(NJR2.Text);加拿大公司就是根据年轻女性要充分展现自己个性的需求，将世界各地的珠类饰品汇集于“碧芝自制饰品店”内，由消费者自选、自组、自制，这样就能在每个消费者亲手制作、充分发挥她们的艺术想像力的基础上，创作出作品，达到展现个性的效果 Y1 = double.Parse(Year6.Text); JDtime = GLToJD(Y1, 0, 0) + NJR+30; JDToGL(JDtime ,out Y,out M,out D);3、你是否购买过DIY手工艺制品？ textBox1.Text = JDtime.ToString (); GLNYR.Text = Y.ToString() + 年 + M.ToString() + 月 + D.ToString() + 日; （一）上海的经济环境对饰品消费的影响 2.3 运行结果二、大学生DIY手工艺制品消费分析民族性手工艺品。在饰品店里，墙上挂满了各式各样的小饰品，有最普通的玉制项链、珍珠手链，也有特别一点如景泰蓝的手机挂坠、中国结的耳坠，甚至还有具有浓郁的异域风情的藏族饰品。喜欢 一般 不喜欢专心-专注-专业