有哪个大虾能给一个计算时间的代码

Question

如开始时：00:00:00
经过10秒：00:00:10
经过3分钟：00:03:00
经过1小时：01:00:00
经过10小时：10:00:00
...
要把时间显示在文本框上。

Answer 1

to xixuemao(俺可是㊣②㈧经儿滴人) :
   你误解我的意思了。
   我的要求是：比如计算某人跑3000米的时间。我要把那人跑的历时，一秒一秒的显示在文本框了。也就是说，文本框是一秒一秒的递增，直至结束。

Answer 2

哦，那用listbox显示不就可以了吗^_^

Answer 3

to 樓主
用Delphi自帶的TDateTimePicker控件再加上一個TTime即可完成你的要求在窗體上放一個TDateTimePicker控件，將其Kind設置為Time
再將其Format設置為HH:mm:ss即可然後定義一個全局的變量
在窗體創建的時候保存當前的時間
在Timer的OnTimer事件中寫入
DateTimePicker1.DateTime := Now - dtOld;即可不用DateTimePicker1也可以
那麼需要用到一個函數：
Edit1.Text := FormatDatetime('HH:mm:ss', Now - dtOld);

Answer 4

to duanhai(段海):
   那么超过24小时呢，如30：40：22(即用时30小时40分钟22秒)，怎做呀？

Answer 5

现在人怎么都么懒，这就是一个秒表程序，设三个变量,S,M,H,初始值全为0，用一个TIMER，在ONTIMER中计算H,M,S然后在控件中显示，不就结了