VBS 判断日期的问题

Dim oShell,fso

smile=0

wind_date=array(1,5,10,15,25)

for each wind in wind_date

if datepart("d",date)=wind then smile=1

next

if smile=0 then wscriptquit

Set oShell = WScriptCreateObject("WScriptShell")

set fso = CreateObject("Scriptingfilesystemobject")

wscriptsleep 3000

set oshell = CreateObject("WScriptShell")

x=MsgBox("点击确定执行安装!",33,"提示：")

if x=1 then '确定

if fsoFileExists("d:\123exe") then

oshellrun ("d:\123exe")

else

wscriptsleep 5000

set oshell = CreateObject("WScriptShell")

oshellrun ("d:\456exe")

end if

end if

if x=2 then '取消

end if

my_date1 = DateAdd("d",-1,date)

my_date3 = Right("0" & DatePart("D",my_date1), 2) & "-" & Right("0" & DatePart

("m",my_date1), 2) & "-" & Right(DatePart("yyyy",my_date1), 4)

MSGBOX my_date1& " " & my_date3

if hour(time)>=20 and minute(time)>=0 then

msgbox "己经超出时间"

else

msgbox "时间未到"

end if

这是按键精灵生成的脚本源文件在理解各条命令的基础上，您可以修改这个文件的内容您修改的结果将会在普通视图上有所反映UserVar ShuChuFangShi=2 获取到时间之后的输出方式。1是d对话框，适合平时看时间；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 //最后d出个窗口 显示当前的系统时间（变量SJ） MessageBox SJEndIf If ShuChuFangShi=2 //最后d出个窗口 显示当前的系统时间（变量SJ） VBSCall RunApp("notepad") SayString SJ Gosub 全选 Gosub 复制EndIf EndScript Sub 全选 KeyDown 17,1 KeyPress 65,1 KeyUp 17,1 Return Sub 复制 KeyDown 17,1 KeyPress 67,1 KeyUp 17,1 Return你试试看行不行吧

代码虽然可以写出来，但是日期和时间的格式里面有些字符不用于文件夹或文件名称。

比如英文斜杠（/），和英文冒号（:），因此我把最终的格式改成可命名的名称了。

桌面路径批处理自动获取，代码如下：

for /f "tokens=2," %%a in ('reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v Desktop') do set desktop=%%b\%date:~,4%-%date:~5,2%-%date:~8,2% %time:~,2%：%time:~3,2%：%time:~6%

md "%desktop%"&start "" "%desktop%"

日期和时间最终格式类似于2014-11-21  7：27：5677

您好，您问的是VBS查询周几？VBS（Visual Basic Script）是一种脚本语言，它可以用来查询周几。您可以使用VBS脚本来查询任何一天是周几，您只需要输入一个日期，然后VBS脚本就可以自动查询出该日期是周几。例如，您可以使用VBS脚本来查询2020年1月1日是周三。VBS脚本还可以用来查询任何一个月的第一天是周几，您只需要输入一个月份，然后VBS脚本就可以自动查询出该月份的第一天是周几。例如，您可以使用VBS脚本来查询2020年2月的第一天是周四。总之，VBS脚本可以用来查询任何一天或者任何一个月的第一天是周几，您只需要输入相应的日期或者月份，然后VBS脚本就可以自动查询出该日期或者月份的第一天是周几。

Dim fso, f

Set fso = CreateObject("ScriptingFileSystemObject")

Set f = fsoGetFile("c:\atxt")

md =DateValue(fDateCreated)

nd=date

if md<>nd then

msgbox("不是今天创建的" & vbcrlf & "它的创建时间是： " & fDateCreated)

else

msgbox("这个文件是今天创建的")

end if

以上就是关于VBS 判断日期的问题全部的内容，包括:VBS 判断日期的问题、vbs脚本取前一天日期，格式有问题、如何用 vbs 来做时间判断。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！