求用vb做万年历 要求输入一个日期 得到星期节日星座节气

求用vb做万年历 要求输入一个日期 得到星期节日星座节气

分数太少了，呵呵，呵呵
另外的农历，是更好地做

用的printf打印功能目录，切换来完成调用子函数很多次了，再加上大循环

日历显示，这是相对简单的，是计算的一年的第一天是星期可以
原则：第1年1月1日（星期一），计算这天的第一天，年1月1日，1的AD，除以7的中间的，其余的是周。一年365天，364正好是7的倍数，那么一年更比一天，闰年加一天。还有一个更简单，仅有400年是一个轮回，400 +97 = 497多
您输入的一年，除以400，计算，然后在今年剩下的天数计算量会小很多
所以在今年的第一天是星期计算
最好做的一个子功能来实现这一功能，返回值是今年的几个星期的第一天，后者可用于

下一个打印子功能是一个不错的选择，
设置一个全局数组包含该月的天数来确定一个，如果在2月的天数 BR />这里有一个技巧，就是设定一个变量来保存每月的最后一天，一周，因为它是连续的，所以在下个月的第一天是星期几被很好地定义，是打印几个空格发生这个变量的值，哦

日期星期有几个还不错的事，知道在今年的第一天，然后是一周的第一天的日期，今年的差一些美好的一天，使用for循环，可以计算出

农历这做的不好，你可以看看百度，一种子功能，您可以参考 a>
后面两个函数，读取和写入文件，很简单，套用固定格式的文件可以变化不大，

//====================================== 返回农历 y年的总天数 function lYearDays(y) { var i, sum = 348; for(i=0x8000; i>0x8; i>>=1) sum += (lunarInfo[y-1900] & i)? 1: 0; return(sum+leapDays(y)); } //====================================== 返回农历 y年闰月的天数 function leapDays(y) { if(leapMonth(y)) return( (lunarInfo[y-1899]&0xf)==0xf? 30: 29); else return(0); } //====================================== 返回农历 y年闰哪个月 1-12 , 没闰返回 0 function leapMonth(y) { var lm = lunarInfo[y-1900] & 0xf; return(lm==0xf?0:lm); } //====================================== 返回农历 y年m月的总天数 function monthDays(y,m) { return( (lunarInfo[y-1900] & (0x10000>>m))? 30: 29 ); } //====================================== 算出农历, 传入日期控件, 返回农历日期控件 // 该控件属性有 .year .month .day .isLeap function Lunar(objDate) { var i, leap=0, temp=0; var offset = (Date.UTC(objDate.getFullYear(),objDate.getMonth(),objDate.getDate()) - Date.UTC(1900,0,31))/86400000; for(i=1900; i<2100 && offset>0; i++) { temp=lYearDays(i); offset-=temp; } if(offset<0) { offset+=temp; i--; } this.year = i; leap = leapMonth(i); //闰哪个月 this.isLeap = false; for(i=1; i<13 && offset>0; i++) { //闰月 if(leap>0 && i==(leap+1) && this.isLeap==false) { --i; this.isLeap = true; temp = leapDays(this.year); } else { temp = monthDays(this.year, i); } //解除闰月 if(this.isLeap==true && i==(leap+1)) this.isLeap = false; offset -= temp; } if(offset==0 && leap>0 && i==leap+1) if(this.isLeap) { this.isLeap = false; } else { this.isLeap = true; --i; } if(offset<0){ offset += temp; --i; } this.month = i; this.day = offset + 1; } //==============================返回公历 y年某m+1月的天数 function solarDays(y,m) { if(m==1) return(((y%4 == 0) && (y%100 != 0) || (y%400 == 0))? 29: 28); else return(solarMonth[m]); } //============================== 传入 offset 返回干支, 0=甲子 function cyclical(num) { return(Gan[num%10]+Zhi[num%12]); } //============================== 阴历属性 function calElement(sYear,sMonth,sDay,week,lYear,lMonth,lDay,isLeap,cYear,cMonth,cDay) { this.isToday = false; //瓣句 this.sYear = sYear; //公元年4位数字 this.sMonth = sMonth; //公元月数字 this.sDay = sDay; //公元日数字 this.week = week; //星期, 1个中文 //农历 this.lYear = lYear; //公元年4位数字 this.lMonth = lMonth; //农历月数字 this.lDay = lDay; //农历日数字 this.isLeap = isLeap; //是否为农历闰月? //八字 this.cYear = cYear; //年柱, 2个中文 this.cMonth = cMonth; //月柱, 2个中文 this.cDay = cDay; //日柱, 2个中文 this.color = ''; this.lunarFestival = ''; //农历节日 this.solarFestival = ''; //公历节日 this.solarTerms = ''; //节气 }

农历和阳历19年是一致的。 （有时可能会相差一两天，这将是大致一致的。） 准确的日历，你可以尝试一下中国的日历。访问互联网，可以查询。 网址查看个人档案 关于中国农历的是为您提供数千年前在日历查询，可以查询阳历和中国农历日期，节气的向上和向下各种节日的日历内容。农历节气，太阳和月亮新月（第一批）和200年的范围内精度在几秒钟内，向前（尽可能公元5000年），精度几分钟。 节气，太阳和月亮月亮在精确的时间可能发生在午夜时分，所以如果日历的精确度不高，误差过大，然后计算出的实际日期可能会糟糕的一天，例如：在2008年1月21日大寒0:43，计算的误差将是1月20日误做的大寒。提供准确的关于中国农历的日历查询是一个非常高的精度。

的飞