vbs获取当前时间日期的代码，vbs获取当前时间

vbs获取当前时间日期的代码，vbs获取当前时间

获取当前日期方法一：

获取当前日期方法二：

获取当前时间：

Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("c:\a.txt")
md =DateValue(f.DateCreated)
nd=date
if md<>nd then
msgbox("不是今天创建的" & vbcrlf & "它的创建时间是： " & f.DateCreated)
else
msgbox("这个文件是今天创建的")
end if
 

doc.51windows.net/...nt.htm

这是帮助文档！你找一下formatdatetime()函数就可以了！

看一下你就明白了！很简单……

比如获取当前日期formatdatetime(now(),2)
当前时间 formatdatetime(now(),4)

你说的什么21时21日的 能不能明白点 云山雾照的现在

哦，看明白了！！！
比如说获取日期中的21日！

day=day("October 21,2006")

day的值就是21
获取今天的日期并提取出日！！
today=date
myday=day(today)
输出MYDAY后就是日子了！

21时的话用法和day()函数一样,用hour()函数获取！

比如获取当前系统时间的小时

timenow=time
timehour=hour(time)

TIMEHOUR就是小时！