初次遭遇Delphi,毕设要求用其做一个日历背景的程序 ( 积分: 100 )

  • 主题发起人 主题发起人 千风上
  • 开始时间 开始时间

千风上

Unregistered / Unconfirmed
GUEST, unregistred user!
请大大们给点思路吧。
就是在程序里要注意些什么。
在原桌面显示日历。实现简单的日程提醒功能。 实现公历与农历同步显示功能。
 
桌面日历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
 
你可以参考一下这个程序。
http://www.2ccc.com/article.asp?articleid=3593
他实现你桌面显示,农历。
 

Similar threads

D
回复
0
查看
838
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部