vfp 如何在表单中显示时间

一、显示日期：
在表单中建 label1 其表单form1的 init代码：
thisform.label1.caption=allt(str(month(date()))+"月"+allt(str(day(date()))+"日"))

二、显示时间：
在表单中建 label2 其表单form1的 init代码：
thisform.label2.caption=time() &&实现显示打开表单时的电脑系统时间

注意：在打开的表单中，如要使时间不断更新，则需建立timer1事件：
timer1的timer代码：
if thisform.label2.caption!=time() && 另外设置timer1的interval属性值500，即1秒执行2次，免除不必要的刷新
thisform.label2.caption=time()
endif

控件text1的属性value设置为time()
在表单内放时钟控件Timer
控件Timer1的属性interval设置为1000
控件Timer1的Timer事件中，写入命令：
thisform.text1.value=time()

用定时器控制