摘要:
procedure TFrmLltj.FormActivate(Sender: TObject);var Present: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec:Word;begin Present:= Now; DecodeDate(Present, Year, Month, Day); DecodeTime(Present, Hour, Min, Sec, MSec); Showmessage(DateToStr(Present)+' '+TimeToStr(Present,'hh'));//显示 阅读全文
posted @ 2011-07-26 09:12 严武 阅读(8129) 评论(0) 推荐(0) 编辑