使用timer 控件 定义timer的internal（刷新间隔时间） 在timer的事件里重复显示时间
Function Cdtoc(datetime)Cdtoc= cstr(year(datetime)) & cstr(month(datetime)) & .....end function
喔， 你要用个Timer哈，那样就很好弄了呢
