VBS也挺强大的呢，这篇给大家演示的是获取当前时刻，并根据不同的时间段来问好！
注：编辑器不支持vbs编程，单引号后是注释哦！
d=Date()
t=Time()
h=Hour(t)    '获取到当前的小时

if h<9 then
	k="早上"
elseif h<12 then
	k="上午"
elseif h<14 then
	k="中午"
elseif h<18 then
	k="下午"
else
	k="晚上"
end if

lady="大美女，" & k & "好呀！"     '拼装好问好的话   
CreateObject("SAPI.SpVoice").Speak(lady)     '电脑读出这句话

效果图：



哈哈，只能听到哦！
喜欢的点个赞❤吧！

获取当前日期方法一：Currentdate1=date()
msgbox Currentdate1
获取当前日期方法二：Currentdate2=year(Now)&"-"&Month(Now)&"-"&day(Now)
msgbox Currentdate2
补充一个：如果想获取的日期前面是1位数的前面补0的写法，例如 2016年5月16，如果目录是2016516不如20160516更好ystr=year(Now)
mstr=Month(Now)
if len(mstr)<2 then mstr="0"&mstr
dstr=day(Now)
dateml=ystr&mstr&dstr
msgbox(dateml)
获取当前时间：CurrentTime=Hour(Now)&":"&Minute(Now)&":"&Second(Now)
m = "当前时间"& CurrentTime
msgbox m
windows下使用VBS取当前日期的前一天，并修正输出格式
my_date1 = DateAdd("d",-1,date)
作用：取当前时间的前一天(当前时间以系统时间为准)并将结果赋予变量my_date1
my_date2 = DatePart("yyyy",my_date1) & "-" & Right("0" & DatePart("m",my_date1), 2) & "-" & Right("0" & DatePart("d",my_date1),2)
作用：不考虑系统设定的时间格式(默认为YYYY/M/D)，修改输出时间格式为YYYY-MM-DD,并将结果赋予变量my_date2
查看输出的时间：
msgbox my_date1
msgbox my_date2
以上脚本在windows2003、2008下测试通过
更多使用VBS获取当前日期的前一天 并修正输出格式相关文章请关注PHP中文网！
本文原创发布php中文网，转载请注明出处，感谢您的尊重！

WINCC 一起学-VBS读取变量归档
题记：
前段时间，看论坛里面有人在问关于VBS读取变量归档的问题，主要是数据库连接和操作方面的问题，我也试着帮忙解决了几个问题，也算学习了一下，现在就是一起做一个项目，通过脚本把变量归档里面的数据读出来，后期再导入EXCEL或者控件里面，或有其他的功能，后面想到再做打算吧。本文从新建项目开始，一步一步来，想到哪里写到哪里，为了减少工作量，就以温度(T)，压力(P)和流量(L)3个变量为例进行读写操作。
软件基础：虚拟机WIN7 SP1 64位旗舰版和WINCC 7.3 SE+UPD9+OFFICE2003为基础，未安装连通性软件包。
目的：使用VBS脚本，读取WINCC变量归档数据，然后导出到EXCEL文件或者ListView控件中。
1、 参考资料
先把一些参考资料放出来，大家一起学习，本文中的资料来自以下文档、手册和WINCC帮助内容，一些朋友问关于报表的问题，我给发的基本上都是这些手册。
A、在WinCC中如何使用VBS读取变量归档数据到EXCEL
B、通过VBS脚本在ListView控件中显示WinCC的变量记录
C、WinCC、Excel、VBA、脚本、连通性软件包
D、WinCC数据报表实现方法介绍
E、WinCC V7.4：组态 系统手册
F、WinCC V7.4：使用 WinCC 系统手册
部分资料来自
http://www.w3school.com.cn
2、 准备工作
2.1 新建项目
在D盘目录下新建名为TAGREAD的项目
2.2 建立变量
在内部变量下，新建分组“TR”，在分组下面，新建名分别为为“P”、“T”、“L”的变量，类型均为：32-位浮点数 IEEE 754。
图1
同时变量在全局脚本里面进行周期性赋值
T：画幅值是10周期10秒的正弦波
T：0-10的随机数
P：T/100进行累加
脚本如下：
图2
触发方式：周期->250ms
2.3 变量归档
新建名为：TAGR的过程值归档，为减少数据库的大小，采样和归档时间我设置成1S，其他设置默认。如图，前三个，下面的请忽略
图3
2.4 设计画面
本人的审美不咋的，就随便做一个画面用来测试。
画面内容：
3个IO域，显示3个变量的实际值；1个在线趋势控件，显示变量趋势；标尺控件方便查看历史值，Listview控件：方便后面导出显示；应用程序：脚本诊断，用于输出脚本是否正常。最右一个按钮，名为测试。运行后如图
图4
1楼还有
附上2的链接
WINCC一起学-VBS读取变量归档-三
WINCC一起学-VBS读取变量归档--四 实现简单报表

代码如下，可以根绝自己需求更改，将代码保存在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