将TDateTime值分解为小时、分钟、秒和毫秒,以及计算时间差
摘要:
将时间日期分解 procedure TForm1.Button1Click(Sender: TObject); var Present: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec: Word; begin Present:= Now; Sys 阅读全文
posted @ 2023-04-11 19:54 六十五度 阅读(115) 评论(0) 推荐(0) 编辑