Dim WshShellSet WshShell = CreateObject("wscript.Shell")seco=InputBox("輸入增加的秒數"& vbCrLf &"負數為減少相應秒數","",60)timestamp1=DateDiff("s", "01/01/1970 00:00:00", Now())timestamp2=DateAdd("s", timestamp1+seco, "01/01/1970 00:00:00")datetamp=split(timestamp2," ")date01=datetamp(0)time01=datetamp(1)WshShell.Run "cmd.exe /c date "+date01, 0WshShell.Run "cmd.exe /c time "+time01, 0