Delphi中日期时间输入的简洁方法

var
 Form1: TForm1;
 systemtime: Tsystemtime;

implementation
{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
 Datetimepicker1.date:=now;
 datetimepicker2.Time:=now;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin { Timer1.Interval=1000ms }
 Datetimepicker1.date:=now;
 datetimepicker2.Time:=now;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin { 确认修改 }
 DatetimeToSystemtime(trunc(Datetimepicker1.date)
 +Frac(Datetimepicker2.Time),systemtime);
 SetLocalTime(systemtime);
 Timer1.Enabled:=true;
end;

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
 Timer1.Enabled:=false;
end;

procedure TForm1.DateTimePicker2Change(Sender: TObject);
begin
 Timer1.Enabled:=false;
end;

end.

---- 再做少许说明:
--- 一. 建立两个DateTimePicker控件，第一个kind属性设置为dtkDate用于日期，第二个kind设置为dtkTime用于时间。两个DateTimePicker均由定时器Timer1控制，每秒刷新一次。当用户修改日期或时间，发生DateTimePicker1Change或DateTimePicker2Change事件，Tmer1.Enabled置为False,停止每秒一次的触发，日期时间显示静止，便于用户修改和确认；点击Button1后(更改确认)，系统日期时间被修改，同时Timer1.Enabled重新置为True，两个DateTimePicker控件上的日期时间就又一秒一次的刷新，这样有动有静使界面显的生动一些。

--- 二. Delphi中控件DateTimePicker的属性Date、Time,获取系统时间的函数Now，其类型本质上都是双精度浮点型，用整数部分表示日期，小数部分表示时间。可以用Now函数直接向DateTimePicker的属性Date或Time赋值，用DateTimePicker显示系统当前时间，这样比另外在用Edit或Label输入、显示要简洁一些.

--- 三.用DateTimePicker.Date和Time的值设置系统时钟时要注意，Date的小数部分和Time的整数部分是随机数。因此Date要用trunc取整，Time要用frac取小数。(忽略了这一点就会产 庀氩坏降慕峁?), 然后再相加、转换(DatetimeToSystemtime)、设置(SetLocalTime)。

--- 四. 过程FormCreate是为了使两个DateTimePicker第一次显示的就是系统当前时间。如果你不计较第一次显示的是你编程日期时刻的话，这一过程可以省去。再考虑到午夜12点前后修改系统时间的可能性极小，过程DateTimePicker1Change也可省略。

　　你看，只要写几条语句就能做出一个实用生动的日期时间显示输入程序，Delphi真好。

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18