麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 編程 > Delphi > 正文

用Delphi處理公歷到農(nóng)歷的轉(zhuǎn)換

2019-11-18 18:46:50
字體:
供稿:網(wǎng)友
const
  START_YEAR=1901;
  END_YEAR=2050;

//返回iYear年iMonth月的天數(shù) 1年1月 --- 65535年12月
function MonthDays(iYear,iMonth:Word):Word;

//返回陰歷iLunarYer年陰歷iLunarMonth月的天數(shù),如果iLunarMonth為閏月,
//高字為第二個(gè)iLunarMonth月的天數(shù),否則高字為0  1901年1月---2050年12月
function LunarMonthDays(iLunarYear,iLunarMonth:Word):Longword;

//返回陰歷iLunarYear年的總天數(shù) 1901年1月---2050年12月
function LunarYearDays(iLunarYear:Word):Word;

//返回陰歷iLunarYear年的閏月月份,如沒有返回0  1901年1月---2050年12月
function GetLeapMonth(iLunarYear:Word):Word;

//把iYear年格式化成天干記年法表示的字符串
  else
    l_CalcLunarDate(iYear,iMonth,iDay,CalcDateDiff(InDate,EncodeDate(START_YEAR,1,1)));
    Result := trim(FormatMonth(iMonth) + FormatLunarDay(iDay));
  end;
end;

function GetLunarHolDay(iYear,iMonth,iDay:Word):string;
begin
  Result:=GetLunarHolDay(EncodeDate(iYear,iMonth,iDay));
end;
end.

上一篇:Delphi語言優(yōu)化

下一篇:Delphi中停靠技術(shù)的實(shí)現(xiàn)

發(fā)表評論 共有條評論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
學(xué)習(xí)交流
熱門圖片

新聞熱點(diǎn)

疑難解答

圖片精選

網(wǎng)友關(guān)注

主站蜘蛛池模板: 秋霞a级毛片在线看 | 中文字幕在线观看精品 | 国产亚洲精彩视频 | 黄色毛片视频在线观看 | 正在播放91 | 亚洲天堂中文字幕在线观看 | 日韩毛片免费观看 | 91精品老司机 | 久久精品亚洲精品国产欧美kt∨ | 成人免费视频 | 欧美乱论 | 国产激情视频在线 | 欧美精品免费一区二区三区 | 最近日本电影hd免费观看 | 特级黄aaaaaaaaa毛片 | 久久不射电影 | 羞羞答答tv | 亚洲福利在线视频 | 性欧美极品xxxx欧美一区二区 | 亚洲精品午夜国产va久久成人 | 国产精品区在线12p 午夜视频色 | 国产一区不卡 | 久久我不卡 | 亚洲精品有限 | 日韩视频―中文字幕 | 影视免费观看 | aa久久| 欧美日韩亚洲精品一区二区三区 | 欧美日韩成人一区二区 | 91久久久久久久 | 午夜久久视频 | 草妞视频| 黄色毛片视频在线观看 | 久久久久久久久久综合 | 国产三级国产精品国产普男人 | 久久我不卡 | 成人毛片视频免费看 | 久久精品99久久久久久2456 | 中文字幕精品在线观看 | 久久成人福利 | 亚洲第一激情 |