日历函数单元

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

end;

procedure GetLunarDate(InDate: TDateTime; var iLunarYear, iLunarMonth, iLunarDay: Word);
begin
l_CalcLunarDate(iLunarYear, iLunarMonth, iLunarDay, CalcDateDiff(InDate, EncodeDate(START_YEAR, 1, 1)));
end;

procedure l_CalcLunarDate(var iYear, iMonth, iDay: Word; iSpanDays: Longword);
var
tmp: Longword;
begin
//阳历1901年2月19日为阴历1901年正月初一
//阳历1901年1月1日到2月19日共有49天
if iSpanDays < 49 then
begin
    iYear := START_YEAR - 1;

    if iSpanDays < 19 then
    begin
      iMonth := 11;
      iDay := 11 + Word(iSpanDays);
    end
    else
    begin
      iMonth := 12;
      iDay := Word(iSpanDays) - 18;
    end;
    Exit;
end;
//下面从阴历1901年正月初一算起
iSpanDays := iSpanDays - 49;
iYear := START_YEAR;
iMonth := 1;
iDay := 1;
//计算年
tmp := LunarYearDays(iYear);
while iSpanDays >= tmp do
begin
    iSpanDays := iSpanDays - tmp;
    Inc(iYear);
    tmp := LunarYearDays(iYear);
end;
//计算月
tmp := LoWord(LunarMonthDays(iYear, iMonth));
while iSpanDays >= tmp do
begin
    iSpanDays := iSpanDays - tmp;
    if iMonth = GetLeapMonth(iYear) then
    begin
      tmp := HiWord(LunarMonthDays(iYear, iMonth));
      if iSpanDays < tmp then
        Break;
上一页 [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

特别推荐