小弟想编一个关机的小软件，在text1中输入时间来赋值变量
Private Sub Command1_Click()
Dim a As Date
a = CDate(Text1.Text)
If Len(Text1.Text) = 0 Then
MsgBox ("请输入日期")
Else
Shell ("at" & a & "shutdown -s")
End If
End Sub
高手们，这代码为啥执行错误？

shell ("at " & a & " shutdown -s")

是不是漏了空格了 ？？？

计划任务不是这样的吧,直接调用API

哦  谢谢楼上两位