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根据url获取缓存文件的方法

Delphi trim 删除字符串左右两边的空格

Delphi实现文件的拖放功能

Delphi让listbox实现即指即显功能

indy断点续传

Delphi研究之驱动开发篇（二）--工具及环境搭建

Delphi提示‘error loading midas.dll’的原因及解决方案

Delphi中tapplicationevents控件的用途与使用方法

Delphi 屏幕截屏

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

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