VB更改系统时间

来源：百度知道 编辑：UC知道 时间：2024/09/24 11:30:21
我要做一个程序 按一个按建就可以让系统时间 加一分钟

vb修改系统时间可是再简单不过了
一个代码就可以实现了

Date = DateValue("你要修改的日期")

注意这个输入的日期是有格式的
比如说你想修改到8888年8月8日
就是Date = DateValue("8888-8-8")

千万不能写Date = DateValue("8888年8月8日")

VB 自带函数 Time 就可以完成:

Private Sub Command1_Click()
Time = Time + 1 / 24 / 60
End Sub

Date 类型的值 1 表示一天, 一分钟即 1 / 24 / 60

例如把系统时间更改为13:08:54,用代码
Shell "cmd.exe /c time 13:08:54"
定机关机时间为14:00:15,用代码
Shell "cmd.exe /c at 14:00 shutdown -s -t 15"
在 14:00 提示 15 秒后关机

Dim sbtime As String
sbtime = Format(Now, "yyyy-mm-dd hh:mm:ss")