Dim WshShellSet WshShell = CreateObject("wscript.Shell")seco=InputBox("輸入增加的秒數(shù)"& vbCrLf &"負(fù)數(shù)為減少相應(yīng)秒數(shù)","",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