//返回iYear年iMonth月的天數 1年1月 --- 65535年12月 function MonthDays(iYear,iMonth:Word):Word;
//返回陰歷iLunarYer年陰歷iLunarMonth月的天數，如果iLunarMonth為閏月， //高字為第二個iLunarMonth月的天數，否則高字為0 1901年1月---2050年12月 function LunarMonthDays(iLunarYear,iLunarMonth:Word):Longword;
//返回陰歷iLunarYear年的總天數 1901年1月---2050年12月 function LunarYearDays(iLunarYear:Word):Word;
//返回陰歷iLunarYear年的閏月月份，如沒有返回0 1901年1月---2050年12月 function GetLeapMonth(iLunarYear:Word):Word;
