vbs取得毫秒
timer函数的定义为：一般作为定时器比较的好，计算时间不太好
The Timer function returns the number of seconds, and milliseconds, since 12:00 AM.
返回正中午 12 时以后已经过去的秒数。
time1=timer
time2=timer
debug.writeline time2-time1
另外一种解决方法是：
ATime = timer() ‘计算的是从1970到现在的秒数
BTime = FormatNumber((timer()-ATime)*1000,3) '精确度的保留，获得的是秒，乘以1000获取的是毫秒
可以精确到秒后的小数点3位
转载于:https://www.cnblogs.com/alterhu/archive/2012/03/06/2382104.html
代码如下，可以根绝自己需求更改，将代码保存在txt文本下，更改文件名为date.vbs,双击运行查看输出结果
rem ---windows下使用VBS取当前日期的前一天，并修正输出格式--- rem ----作用：取当前时间的前1天（当前时间以系统时间为准）并将结果赋予变量my_date1--- my_date1 = DateAdd("d",-1,date) rem ----作用：取当前时间的前2天（当前时间以系统时间为准）并将结果赋予变量my_date1--- my_date4 = DateAdd("d",-2,date) rem ---作用：不考虑系统设定的时间格式（默认为YYYY/M/D），修改输出时间格式为YYYYMMDD,并将结果赋予变量my_date2--- my_date2 = DatePart("yyyy",my_date1)&""& Right("0" & DatePart("m",my_date1), 2)&""&Right("0" & DatePart("d",my_date1),2) rem ---作用：不考虑系统设定的时间格式（默认为YYYY/M/D），修改输出时间格式为YYYY-MM-DD,并将结果赋予变量my_date3--- my_date3 = DatePart("yyyy",my_date1)&"-"& Right("0" & DatePart("m",my_date1), 2)&"-"&Right("0" & DatePart("d",my_date1),2) rem ---查看输出的时间：--- msgbox my_date1 msgbox my_date2 msgbox my_date3 msgbox my_date4
编写控制代码。
Dim Date_riqi
Dim riqi
Set riqi=HMIRuntime.Tags("Date_riqi")
Dim Date_Year
Set Date_Year=HMIRuntime.Tags("Date_Year")
Dim Date_Month
Set Date_Month=HMIRuntime.Tags("Date_Month")
Dim Date_Day
Set Date_Day=HMIRuntime.Tags("Date_Day")
Dim Date_Hour
Set Date_Hour=HMIRuntime.Tags("Date_Hour")
Dim Date_Minute
Set Date_Minute=HMIRuntime.Tags("Date_Minute")
Dim Date_Second
Set Date_Second=HMIRuntime.Tags("Date_Second")
Dim flag1
Set flag1=HMIRuntime.Tags("Flag")
Date_Year.Read
Date_Year.Write CStr(Year(Now))
Date_Month.Read
Date_Month.Write CStr(Month(Now))
Date_Day.Read
Date_Day.Write CStr(Day(Now))
Date_Hour.Read
Date_Hour.Write CStr(Hour(Now))
Date_Minute.Read
Date_Minute.Write CStr(Minute(Now))
Date_Second.Read
Date_Second.Write CStr(Second(Now))
flag1.Read
If flag1.Value=1 Then
Date_riqi=CStr(Year(Now))&"-"&Right("00"&CStr(Month(Now)),2)&"-"&Right("00"&CStr(Day(Now)),2)
riqi.Read
riqi.Write""&Date_riqi&""
Dim UA_dayrpt_ID
Set UA_dayrpt_ID=HMIRuntime.Tags("@UA_dayrpt_ID")
Dim UA_dayrpt_Job
Set UA_dayrpt_Job=HMIRuntime.Tags("@UA_dayrpt_Job")
UA_dayrpt_ID.Read
UA_dayrpt_ID.Write -1
UA_dayrpt_Job.Read
UA_dayrpt_Job.Write 6
End If
编译保存。
编写控制代码。
Dim Date_riqi
Dim riqi
Set riqi=HMIRuntime.Tags("Date_riqi")
Dim Date_Year
Set Date_Year=HMIRuntime.Tags("Date_Year")
Dim Date_Month
Set Date_Month=HMIRuntime.Tags("Date_Month")
Dim Date_Day
Set Date_Day=HMIRuntime.Tags("Date_Day")
Dim Date_Hour
Set Date_Hour=HMIRuntime.Tags("Date_Hour")
Dim Date_Minute
Set Date_Minute=HMIRuntime.Tags("Date_Minute")
Dim Date_Second
Set Date_Second=HMIRuntime.Tags("Date_Second")
Dim flag1
Set flag1=HMIRuntime.Tags("Flag")
Date_Year.Read
Date_Year.Write CStr(Year(Now))
Date_Month.Read
Date_Month.Write CStr(Month(Now))
Date_Day.Read
Date_Day.Write CStr(Day(Now))
Date_Hour.Read
Date_Hour.Write CStr(Hour(Now))
Date_Minute.Read
Date_Minute.Write CStr(Minute(Now))
Date_Second.Read
Date_Second.Write CStr(Second(Now))
flag1.Read
If flag1.Value=1 Then
Date_riqi=CStr(Year(Now))&"-"&Right("00"&CStr(Month(Now)),2)&"-"&Right("00"&CStr(Day(Now)),2)
riqi.Read
riqi.Write""&Date_riqi&""
Dim UA_dayrpt_ID
Set UA_dayrpt_ID=HMIRuntime.Tags("@UA_dayrpt_ID")
Dim UA_dayrpt_Job
Set UA_dayrpt_Job=HMIRuntime.Tags("@UA_dayrpt_Job")
UA_dayrpt_ID.Read
UA_dayrpt_ID.Write -1
UA_dayrpt_Job.Read
UA_dayrpt_Job.Write 6
End If
编译保存。
