桌面日历cpu损耗太大,特别是显示秒表。
公历转农历函数
if CnMonth[15 - I] = LeapMonth then
CnMonth[15 - I + 1] := - LeapMonth
else
begin
if CnMonth[15 - I] < 0 then //上月为闰月
CnMonth[15 - I + 1] := - CnMonth[15 - I] + 1
else
CnMonth[15 - I + 1] := CnMonth[15 - I] + 1; if CnMonth[15 - I + 1] > 12 then
CnMonth[15 - I + 1] := 1;
end;
end;
if (InterMonth <> 13) and (InterMonth < LMonth) then
day := day + InterMo