在表单中添加一个时间控件(Timer1),一个命令按钮(Command1),两2个标签(Label1和Label2)。布局自己调整。
(1)Form1.Init:
Public tTime
(2)Command1.Click:
tTime=Datetime()
ThisForm.Timer1.InterVal=36000
(3)Timer1.Timer:
nSec=Datetime()-tTime
ThisForm.Label1.Caption=Alltrim(Str(nSec))+'秒'
ThisForm.Label2.Caption=Alltrim(Str((Int(nSec/36)+1)/10,10,2))+'元'