//é¦å å®ä¹ä¸ä¸ªå ¨å±åéTï¼å¹¶æå½åæ¶é´èµå¼ç»Tï¼å¯å¨çº¿ç¨ï¼è®¡ç®å½åè¿è¡æ¶é´ï¼ä¸å ¶ä»èæ¬æ²¡æå²çª Dimenv T T = now BeginThread è¿è¡æ¶é´ Sub è¿è¡æ¶é´ Do TracePrint DiffADate(t) Delay 1000 loop End Sub
Function DiffADate (theDate) DiffADate = "è¿è¡æ¶é´ä¸º:" & DateDiff("s", theDate, now) End Function