Dim hourhour = Split(CStr(Time), "态灶:") 'Time返配段回当前的系统时间（Date类型），如21:16:07。'CStr()可以去掉，按键精灵会自帆卖扮动转换类型，加上它只是因为我的个人习惯而已。TracePrint hour(0)
