UserVar ShuChuFangShi = 1 "获取到时间之后的输出方式。
1是弹对话框,适合平时看时间;
2是文本输出,适合网游里使用"
Dim Y,Mon,D,W,h,m,s,SJ
//先声明变量
Y=Year(Date):Mon=Month(Date):D=Day(Date):W=Weekday(Date,vbMonday)
//利用VBS函数获得当前系统的年,月,日,星期 并各自保存到变量中
h=Hour(time):m=Minute(time):s=Second(time)
//利用VBS函数获得当前系统的时,分,秒 并各自保存到变量中
SJ=Y &"年"& Mon &"月"& D &"号"& W &" "& h &"点"& m &"分"& s &"秒"
//把得到的年,月,日,星期,时,分,秒连接起来 并保存到SJ变量中
If ShuChuFangShi=1 Then
//最后弹出个窗口 显示当前的系统时间(变量SJ)
MessageBox SJ
End If
If ShuChuFangShi=2 Then
//最后弹出个窗口 显示当前的系统时间(变量SJ)
MessageBox SJ
End If
温馨提示:内容为网友见解,仅供参考