日历函数单元

日期：2007年8月27日作者：查看:[大字体中字体小字体]

   致看到这些源代码的兄弟:
       你好!
       这本来是我为一个商业PDA产品开发的日历程序,最近移植于PC机上, 所以算法
   和数据部分是用纯C++写的,不涉及MFC,所有的代码都是以短节省存储空间为主要目
   的.
    很高兴你对这些代码有兴趣,你可以随意复制和使用些代码,唯一有一点小小的
   愿望:在你使用和复制给别人时,别忘注明这些代码作者:-)。程序代码也就罢了,后
   面的数据可是我辛辛苦苦从万年历上找出来输进去的。
    如果你有什么好的意见不妨Mail给我。

       wangfei@hanwang.com.cn
    或
    wangfei@engineer.com.cn
                                                                 2000年3月
****************************************************************************/

//Translated and modified by Icebird from C++ to Delphi 5 on 2001.1

unit Calendar;

interface

uses SysUtils, Windows;

const
START_YEAR = 1901;
END_YEAR = 2050;

// ==> function IsLeapYear(Year: Word): Boolean;

//计算iYear,iMonth,iDay对应是星期几 1年1月1日 --- 65535年12月31日
function WeekDay(iYear, iMonth, iDay: Word): Integer;
// ==> function DayOfWeek(Date: TDateTime): Integer;

//计算指定日期的周数，周0为新年开始后第一个星期天开始的周
function WeekNum(const TDT: TDateTime): Word; overload;
function WeekNum(const iYear, iMonth, iDay: Word): Word; overload;

//返回iYear年iMonth月的天数 1年1月 --- 65535年12月

function MonthDays(iYear, iMonth: Word): Word;

//返回阴历iLunarYer年阴历iLunarMonth月的天数，如果iLunarMonth为闰月，
[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] 下一页
日历函数单元相关文章：
·2007年结婚吉日黄道吉日通用表
·关于oracle日期函数的介绍和使用
·《抗日：血战缅甸》官方无敌秘笈
·asp.net中调用javascript函数实现多功能日期控件示例
·显示日期和时间_QQ空间时间代码
·3DsMAX制作甜美三维生日蛋糕
·IIS攻击与日志
·超强超靓网页日历代码,网页特效
·QQ空间_生日快乐集
·用ASP开发WEB日期选择器
日历函数单元相关软件
·抗日：血战上海滩
·金庸群侠传之苍龙逐日
·日月网络电视 V6.0
·日语老师(标准日本语-初级) V3.9 Build 070828
·百战天虫之末日浩劫
·日语词典和日语背单词 V1.7
·飞雪桌面日历 V2.62
·笑傲江湖之日月神教
·末日危城2
·节日礼品店

上一篇:根据数据库表中记录自动构造一棵结构树的一种高效算法

下一篇:利用未公开函数实现Shell操作监视

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

日历函数单元

精品推荐

热点TOP10

特别推荐