日历函数单元

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

function l_GetLunarHolDay(iYear, iMonth, iDay: Word): Word;

//计算指定日期所对应的星座

function GetConstellation(const DateTime: TDateTime): Integer;
function GetConstellationName(const Constellation: Integer): string; overload;
function GetConstellationName(const DateTime: TDateTime): string; overload;

implementation

var
//数组gLunarDay存入阴历1901年到2100年每年中的月天数信息，
//阴历每月只能是29或30天，一年用12（或13）个二进制位表示，对应位为1表30天，否则为29天
gLunarMonthDay: array[0..149] of Word = (
    //测试数据只有1901.1.1 --2050.12.31
    $4AE0, $A570, $5268, $D260, $D950, $6AA8, $56A0, $9AD0, $4AE8, $4AE0, //1910
    $A4D8, $A4D0, $D250, $D548, $B550, $56A0, $96D0, $95B0, $49B8, $49B0, //1920
    $A4B0, $B258, $6A50, $6D40, $ADA8, $2B60, $9570, $4978, $4970, $64B0, //1930
    $D4A0, $EA50, $6D48, $5AD0, $2B60, $9370, $92E0, $C968, $C950, $D4A0, //1940
    $DA50, $B550, $56A0, $AAD8, $25D0, $92D0, $C958, $A950, $B4A8, $6CA0, //1950
    $B550, $55A8, $4DA0, $A5B0, $52B8, $52B0, $A950, $E950, $6AA0, $AD50, //1960
    $AB50, $4B60, $A570, $A570, $5260, $E930, $D950, $5AA8, $56A0, $96D0, //1970
    $4AE8, $4AD0, $A4D0, $D268, $D250, $D528, $B540, $B6A0, $96D0, $95B0, //1980
    $49B0, $A4B8, $A4B0, $B258, $6A50, $6D40, $ADA0, $AB60, $9370, $4978, //1990
    $4970, $64B0, $6A50, $EA50, $6B28, $5AC0, $AB60, $9368, $92E0, $C960, //2000
    $D4A8, $D4A0, $DA50, $5AA8, $56A0, $AAD8, $25D0, $92D0, $C958, $A950, //2010
    $B4A0, $B550, $B550, $55A8, $4BA0, $A5B0, $52B8, $52B0, $A930, $74A8, //2020
    $6AA0, $AD50, $4DA8, $4B60, $9570, $A4E0, $D260, $E930, $D530, $5AA0, //2030
上一页 [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

特别推荐