我想做个计时的功能,求大家帮帮忙~就5分了~(5分)

  • 主题发起人 主题发起人 skuk88
  • 开始时间 开始时间
S

skuk88

Unregistered / Unconfirmed
GUEST, unregistred user!
比如定时关机程序,Edit3.text里输入的是关机时间,那么能不能用现在时间减去关机时间得到这个计时的时间呢?我新加入一个timer控制输入如下代码:
procedure TForm1.Timer4Timer(Sender: TObject);
var i,j:integer;
begin
i:=strtoint(edit3.Text);
j:=strtoint(timetostr(now));
if timer3.Enabled=true then
label9.Caption :=inttostr(j-i);
运行1秒就会出错~~救命啊!
 
后来朋友说时间不能转为整型。然后我就时间和时间相减。然后在赋值给字符。这样也不行。帮帮我啊。
var tim:Tdatetime;
begin
if timer3.Enabled =true then
timer4.Enabled :=true;
tim:=time - strtotime(Edit3.Text);
label9.Caption :=timetostr(tim);
 
你这个代码需要注意一点,就是edit3.text里面的时间需要输入完整,年,月,日,时,分,如果你不想精确到秒钟 ,可以不输入秒钟,这样才可以。
另外,给你说另外一个关于时间的。
delphi中,把1天表示位整数1,如果你想计算,可以进行换算。比如1小时=1/24天,
1分钟=1/(24*60)天,1秒钟=1/(24*60*60)天,now返回的时间的单位是天,你根据这些可以随意进行换算了。
 
后退
顶部