日历函数单元

•     else
        Height := 29;
    Result := MakeLong(Low, Height);
  
  end;

  function LunarYearDays(iLunarYear: Word): Word;
  var
    Days, i: Word;
    tmp: Longword;
  begin
    Days := 0;
    for i := 1 to 12 do
    begin
      tmp := LunarMonthDays(iLunarYear, i);
      Days := Days + HiWord(tmp);
      Days := Days + LoWord(tmp);
    end;
    Result := Days;
  end;

  procedure FormatLunarYear(iYear: Word; var pBuffer: string);
  var
    szText1, szText2, szText3: string;
  begin
    szText1 := '甲乙丙丁戊己庚辛壬癸';
    szText2 := '子丑寅卯辰巳午未申酉戌亥';
    szText3 := '鼠牛虎免龙蛇马羊猴鸡狗猪';
    pBuffer := Copy(szText1, ((iYear - 4) mod 10) * 2 + 1, 2);
    pBuffer := pBuffer + Copy(szText2, ((iYear - 4) mod 12) * 2 + 1, 2);
    pBuffer := pBuffer + ' ';
    pBuffer := pBuffer + Copy(szText3, ((iYear - 4) mod 12) * 2 + 1, 2);
    pBuffer := pBuffer + '年';
  end;

  function FormatLunarYear(iYear: Word): string;
  var
    pBuffer: string;
  begin
    FormatLunarYear(iYear, pBuffer);
    Result := pBuffer;
  end;

  procedure FormatMonth(iMonth: Word; var pBuffer: string; bLunar: Boolean);
  var
    szText: string;
  begin
    if (not bLunar) and (iMonth = 1) then
    begin
      pBuffer := '  一月';
      Exit;
    end;
    szText := '正二三四五六七八九十';
    if iMonth <= 10 then
    begin
      pBuffer := '  ';
      pBuffer := pBuffer + Copy(szText, (iMonth - 1) * 2 + 1, 2);
      pBuffer := pBuffer + '月';
      Exit;
  

• 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 日历函数单元 相关文章：
• ·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

特别推荐