📄 060904_05.htm
字号:
<html>
<head>
<link REL="stylesheet" HREF="/style.css" TYPE="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>计算机世界日报:
Delphi中日期时间输入的简洁方法
</title>
<!--***********-->
</head>
<body bgcolor="#FFFFFF" >
<p><br>
<font color="#b904e8"><b><em><a href="class.htm">返回</a></em></b></font>
<center>
<font color="#0000c0"><h2>
Delphi中日期时间输入的简洁方法
</h2></font>
<h3>
国家摩托车质量检验中心
<br>赵素郑
</h3>
</center>
<p><font color="#ffffff">----</font>
看了贵报上有关Delphi中日期时间输入的文章，本人也想谈一谈自己的做法，以期与大家交流。请看程序:
<pre>
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.
</pre>
<p><font color="#ffffff">----</font>
再做少许说明:
<p><font color="#ffffff">----</font>
一. 建立两个DateTimePicker控件，第一个kind属性设置为dtkDate用于日期，第二个kind设置为dtkTime用于时间。两个DateTimePicker均由定时器Timer1控制，每秒刷新一次。当用户修改日期或时间，发生DateTimePicker1Change或DateTimePicker2Change事件，Tmer1.Enabled置为False,停止每秒一次的触发，日期时间显示静止，便于用户修改和确认；点击Button1后(更改确认)，系统日期时间被修改，同时Timer1.Enabled重新置为True， 两个DateTimePicker控件上的日期时间就又一秒一次的刷新，这样有动有静使界面显的生动一些。
<p><font color="#ffffff">----</font>
二. Delphi中控件DateTimePicker的属性Date、Time,获取系统时间的函数Now，其类型本质上都是双精度浮点型，用整数部分表示日期，小数部分表示时间。可以用Now函数直接向DateTimePicker的属性Date或Time赋值，用DateTimePicker显示系统当前时间，这样比另外在用Edit或Label输入、显示要简洁一些.
<p><font color="#ffffff">----</font>
三.用DateTimePicker.Date和Time的值设置系统时钟时要注意，Date的小数部分和Time的整数部分是随机数。因此Date要用trunc取整，Time要用frac取小数。(忽略了这一点就会产生意想不到的结果) 然后再相加、转换(DatetimeToSystemtime)、设置(SetLocalTime)。
<p><font color="#ffffff">----</font>
四. 过程FormCreate是为了使两个DateTimePicker第一次显示的就是系统当前时间。如果你不计较第一次显示的是你编程日期时刻的话，这一过程可以省去。再考虑到午夜12点前后修改系统时间的可能性极小，过程DateTimePicker1Change也可省略。
<p><font color="#ffffff">----</font>
你看，只要写几条语句就能做出一个实用生动的日期时间显示输入程序，Delphi真好。
<p align="right"><small><em>中国计算机世界出版服务公司版权所有</em></small>
<br>
</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -