怎样作万年历？

Question

求教各位高手，怎样作万年历啊？怎样加入阴历？怎样换算闰年闰月啊？
    能否在万年历中查找现在日期前后百年以上的闰年闰月？  
    多谢！！！

Answer 1

参见：
http://www.csdn.net/expert/topic/828/828809.xml?temp=.3125727
http://www.csdn.net/expert/topic/953/953463.xml?temp=8.045596E-02要的话，留下Email

Answer 2

你去问lasir
他可能知道的
他可是以为高手哦！

Answer 3

多谢  oracle_lover(数据库情人)
我的Email是：[email protected]或[email protected]
          或[email protected]  希望最好发到sohu邮箱
   再次感谢！！

Answer 4

已发送到：
[email protected],[email protected],[email protected],[email protected]
请查收to: liaoqingpeng(棋快一步)
我的源码也是1900-2050，其它的只能查别的资料了

Answer 5

阴历不会。
但闰年不难呀。C语言书就有：
var
  Year,Temp:Word;
  D:TDate;
begin
  DecodeDate(D,Year,Temp,Temp);
  if (Year mod 100=0)or((Year mod 4=0)and(Year mod 100<>0)) then
    ShowMessage('It is a leap year!');
end;
或用一个函数：IsLeapYear;//好象是这样 查查帮助吧
另外增加一年可以用IncYear(Date:TDateTime);//D5下没有！
这样你不就很容量得出后一百年的闰年了。至于前一百年的闰年情况就也不难呀。取出当年年分用DecodeDate函数。然后用循环减上一百次并判断是不是闰年不就行了吗？

Answer 6

to : oracle_lover(数据库情人) 也给偶一份把，非常感谢
[email protected]

Answer 7

to: liaoqingpeng(棋快一步) 
把你那150年的数据给我一份好把？谢谢
[email protected]
 
 
  

Answer 8

to:oracle_lover(数据库情人)
  也给我发一份吧！谢谢
  [email protected]

Answer 9

谁有2050年之后的阴历（大小月、闰月）和节气（农历）数据，给俺一份吧：[email protected]。作为感谢，本人原意回赠万年历（1900-2050，标准农历，就是寻常百姓家最常见的那种，含有公历、阴历、节气、公历节日、阴历节日）及其Delphi源代码。

Answer 10

to : cnsuyong(小可) 把你那个给偶一份把，非常感谢
[email protected]