新建了一个表单文件，在表单上面添加有label1和label2两个标签,一个计时器。

label2的caption属性值设置为"=time()"

计时器的timer事件为thisform.label2.caption=time()

当运行表单后，label2自动显示为系统当前时间（假设为12小时制），要添加什么程序才能使双击表单空白处，使label1显示为24小时时间格式。。。

谢谢！！！

在表单的INIT()里输入
SET CENTURY ON
PUBLIC H
H=.F.
SET HOURS TO 12
在表单的CLICK()输入
IF H=.T.
SET HOURS TO 12
H=.F.
ELSE
SET HOURS TO 24
H=.T.
ENDIF
在TIMER1的TIMER里输入
THISFORM.LABEL1.CAPTION=SUBSTR(TDOC(DATETIME()),9)

[此贴子已经被作者于2006-7-26 14:53:48编辑过]

非常感谢!!!