.NET学习网|ASP.NET教程|ASP.NET MVC|ASP.NET 源码|VS2010教程|ASP.NET视频教程|vs2010中文旗舰版下载

使用方法：

1. xDate *Date_x=new xDate();//取系统时间初始化-:) 
2.  
3. Memo1->Lines->Add("公历"+IntToStr(Date_x->GetYear()) +"年"); 
4. Memo1->Lines->Add("公历"+IntToStr(Date_x->GetMonth())+"月"); 
5. Memo1->Lines->Add("公历"+IntToStr(Date_x->GetDay())  +"日"); 
6. if(Date_x->IsLeapYear(Date_x->GetYear())) 
7.  
8.         Memo1->Lines->Add("今年是闰年"); 
9. else 
10.         Memo1->Lines->Add("今年不是闰年"); 
11.  
12. Memo1->Lines->Add("今天是星期"+IntToStr(Date_x->WeekDay(Date_x->GetYear(),Date_x->GetMonth(),Date_x->GetDay()))); 
13. Memo1->Lines->Add("公历:本月"+IntToStr(Date_x->MonthDays(Date_x->GetYear(),Date_x->GetMonth()))+" 天"); 
14. Memo1->Lines->Add("阴历:本月"+IntToStr(Date_x->LunarMonthDays(Date_x->GetYear(),Date_x->GetMonth()))+" 天"); 
15. Memo1->Lines->Add("阴历今年:"+IntToStr(Date_x->LunarYearDays(Date_x->GetYear()))+"天"); 
16. //==================================================================// 
17. char ch0[20]="天干记年法表示:"; 
18. char Buffer0[8]; 
19. Date_x->FormatLunarYear(Date_x->GetYear(),Buffer0); 
20. strcat(ch0,Buffer0); 
21. Memo1->Lines->Add(ch0); 
22. //==================================================================// 
23. char ch1[20]="月份中文表示法:"; 
24. char Buffer1[8]; 
25. Date_x->FormatMonth(Date_x->GetMonth(),Buffer1,true); 
26. strcat(ch1,Buffer1); 
27. Memo1->Lines->Add(ch1); 
28. //==================================================================// 
29. char ch2[20]="Day中文表示法:"; 
30. char Buffer2[8]; 
31. Date_x->FormatLunarDay(Date_x->GetDay(),Buffer2); 
32. strcat(ch2,Buffer2); 
33. Memo1->Lines->Add(ch2); 
34. //==================================================================// 
35. //计算两个日期相差的天数 
36. Memo1->Lines->Add("距1956,2,21 有:"+IntToStr(Date_x->CalcDateDiff(Date_x->GetYear(),Date_x->GetMonth(),Date_x->GetDay(),1956,2,21))+" 天"); 
37.  
38. //节气计算 
39. WORD iLunarYear,  iLunarMonth,  iLunarDay; 
40. WORD  n; 
41. n=Date_x->GetLunarDate(Date_x->GetYear(),Date_x->GetMonth(),Date_x->GetDay(),iLunarYear,iLunarMonth,iLunarDay); 
42. if(n) 
43.         Memo1->Lines->Add(IntToStr(n)); 
44. else 
45.         Memo1->Lines->Add("不是节气"); 
46.  
47. Memo1->Lines->Add("今天阴历是:"+IntToStr(iLunarYear)+"-"+IntToStr(iLunarMonth)+"-"+IntToStr(iLunarDay));