Delphi 获取系统时间,获取系统年月日,时分秒

本文整理自网络，侵删。

 
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'));//显示年月日时分秒 
Showmessage(formatdatetime('hh:mm',time));//显示时分 
cbb_qs_n.Text := inttostr(Year);//显示年 
cbb_qs_y.Text := inttostr(Month);//显示月 
cbb_qs_r.Text := inttostr(Day);//显示日 
cbb_qs_s.Text := IntToStr(Hour);//显示时 
cbb_qs_f.Text := IntToStr(Min);//显示分 

end; 

相关阅读 >>

Delphi 字符串处理

Delphi获取当前计算机所有盘符

如何为Delphi程序添加事件和事件处理器

Delphi scrollbox1滚动框鼠标滚轮

Delphi 检查ip地址合法性

Delphi报警声音 beep、messagebeep 和 windows.beep

Delphi实例键盘记录

Delphi access中只取时间的日期部分的函数

Delphi tstringlist 自带 split 用法

Delphi串口通信编程

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 获取系统时间,获取系统年月日,时分秒