procedure TFRM_Date.DateChange(MyTime: TDateTime); var i, S: integer; StarNo: integer; Present: TDateTime; Year, Month, Day: Word; begin Label20.Caption := IntToStr(DateUtils.YearOf(Mytime)); Label17.Caption := IntToStr(DateUtils.MonthOf(Mytime)); L

软件介绍: 从软媒中提取出来的纯净版软媒时间，解压后直接运行主程序mytime.exe即可。作为一款桌面日历软件，它的功能还是比较丰富的，除了显示桌面万年历、显示当前天气状况外，你可以更改它的心都大小及透明度，桌面日后的背景图片及悬浮窗口。记事提醒功能方便添加各种提醒，有了它不会让你再忘事，只需要点击“添加新提醒”按钮来添加提醒。记事就像一个简单的日记事，方便添加每日记事，并可以为记事内容进行分类。

androidStudiio环境小demo，开屏广告，开屏广告里含有倒计时，倒计时后可以跳转其他页面。

qt 写的一个定时器小例子。用到 qtimer qtime ，供大家参考。