ddate = Format(Now, "mm:dd:yy") '格式化日期变量
  ttime = Format(Now, "hh:mm:ss") '格式化时间变量

第一句应该是显示：月　日　年
第二句好似是显示：时　分　秒
自己增加二文本框，让text1.text=ddate
text2.text=Format(Now, "hh:mm:ss") 看结果自然知道是什么

第一句应该是把日期转换成“mm:dd:yy"这样的格式
第二句应该是把时间转换成"hh:mm:ss"这样的格式

补充一句Now是指现在的日期时间