p; 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; iSpanDays:=iSpanDays-tmp; end; Inc(iMonth); tmp:=LoWord(LunarMonthDays(iYear,iMonth)); end; //计算日 iDay:=iDay+Word(iSpanDays); end;
function l_GetLunarHolDay(iYear,iMonth,iDay:Word):Word; var Flag:Byte; Day:Word; begin Flag:=gLunarHolDay[(iYear-START_YEAR)*12+iMonth-1]; if iDay<15 then Day:=15-((Flag shr 4) and $0f) else Day:=(Flag and $0f)+15; if iDay=Day then if iDay>15 then Result:=(iMonth-1)*2+2 else Result:=(iMonth-1)*2+1 else Result:= 0; end;
function GetLunarHolDay(InDate:TDateTime):string; var i,iYear,iMonth,iDay:Word; begin DecodeDate(InDate,iYear,iMonth,iDay); i:=l_GetLunarHolDay(iYear,iMonth,iDay); case i of 1:Result:=''''小 寒''''; 2:Result:=''''大 寒''''; 3:Result:=''''立 春''''; 4:Result:=''''雨 水''''; 5:Result:=''''惊 蛰''''; 6:Result:=''''春 分''''; 7:Result:=''''清 明''''; 8:Result:=''''谷 雨''''; 9:Result:=''''立 夏''''; 10:Result:=''''小 满''''; 11:Result:=''''芒 种''''; 12:Result:=''''夏 至''''; 13:Result:=''''小 暑''''; 14:Result:=''''大 暑''''; 15:Result:=''''立 秋''''; 16:Result:=''''处 暑''''; 17:Result:=''''白 露''''; 18:Result:=''''秋 分''''; 19:Result:=''''寒 露''''; 20:Result:=''''霜 降''''; 21:Result:=''''立 冬''''; 22:Result:=''''小 雪''''; 23:Result:=''''大 雪''''; 24:Result:=''''冬 至''''; 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.
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
