网站导航免费论文 原创论文 论文搜索 原创论文 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 论文素材 设计下载 最新论文 下载排行 论文上传 在线投稿 联系我们
返回网学首页
网学联系
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 编程文档 > VC++ > 正文
公历农历相互转换的算法及其VCL实现
来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/15
下载{$ArticleTitle}原创论文样式
;  TDateTime TheDate;                  //日期

   int FYear,FMonth,FDay,FTime;          //公历年月日时

   int FcYear,FcMonth,FcDay,FcTime;      //农历年月日时

   AnsiString __fastcall GetDateString();     //获取日期字符串

   AnsiString __fastcall GetcDateString();    //获取农历日期字符串

   int __fastcall GetBit(int m,int n);    //获取1bit

   void __fastcall GetYMD();              //获取年月日

   void __fastcall SetDate(TDateTime);             //用一个TDateTime类型的变量转换

   //-----------分别修改公历的年月日时-------------------------------------

   void __fastcall SetYear(int AYear){SetBy(AYear,FMonth,FDay,FTime);};

   void __fastcall SetMonth(int AMonth){SetBy(FYear,AMonth,FDay,FTime);};

   void __fastcall SetDay(int ADay){SetBy(FYear,FMonth,ADay,FTime);};  

   void __fastcall SetTime(int ATime){SetBy(FYear,FMonth,FDay,ATime);};

   //-----------分别修改农历的年月日时---------------------------------------

   void __fastcall SetcYear(int AcYear){SetByc(AcYear,FcMonth,FcDay,FcTime);};

   void __fastcall SetcMonth(int AcMonth){SetByc(FcYear,AcMonth,FcDay,FcTime);};

   void __fastcall SetcDay(int AcDay){SetByc(FcYear,FcMonth,AcDay,FcTime);};

   void __fastcall SetcTime(int AcTime){SetByc(FcYear,FcMonth,FcDay,AcTime);};

   TDateTime __fastcall GetLastJie(); //取得上一个节

   TDateTime __fastcall GetNextJie();       //取得下一个节

   TDateTime __fastcall GetLastQi();  //取得上一个中气

   TDateTime __fastcall GetNextQi(); //取得下一个中气

   int __fastcall GetDayOfWeek();      //取得一周的第几天

   AnsiString __fastcall GetWeekString();   //返回星期几的字符串

protected:

public:

   void __fastcall SetBy(int,int,int,int);    //用公历设置

   void __fastcall SetByc(int,int,int,int);   //用农历设置

   __fastcall ThsDivineCalendar(TComponent* Owner);

   //属性:年月日时

   __property int Year={read=FYear,write=SetYear};

   __property int Month={read=FMonth,write=SetMonth};

   __property int Day={read=FDay,write=SetDay};

   __property int Time={read=FTime,write=SetTime};

   //属性:

网学推荐

免费论文

原创论文

浏览:
设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
湘ICP备09003080号