timetostr(timetostrike)

新建一个顺序，并在窗体中参与以下元件 Timer1 TTimer Image1 TImage时钟的表盘 Edit1 TEdit 日期框 Label1 TLabel PopupMenu1 TPopupMenu 然后在 $R *DFM 下面参与这么一句 $R CLOCK。

1datestart，dateend你可以设为Tdatetime，这样减少转换2日期型数据是double，本身在比较大小时就会有问题，特别是日期与字串相互转换后可能会变动3把日期赋给了两个变量又进行比较，其实没有意义可以改为只比较。

adjusted TimeToStradjusted write_com0x82 write_stringadjustedDateString，8 write_com0xc2 write_stringadjustedTimeString，8 delay10 二头文件1 显示模块 LCD1602H #ifndef LCD_CHAR_1602。

void TimeToStrvoid 将时，分，秒数据转换成液晶显示字符放到数组 TimeString unsigned char Hour，Minute，Second Hour=rtc_gethour Minute=rtc_getmin Second=rtc_getsec ifhide_hourlt2 TimeString0。