-
vbs获取当前时间日期的代码
2020-09-04 11:20:35主要介绍了vbs获取当前时间日期的代码,需要的朋友可以参考下 -
vbs控制电脑说话,vbs获取时间,vbs小程序
2018-12-19 10:01:58VBS也挺强大的呢,这篇给大家演示的是获取当前时刻,并根据不同的时间段来问好! 注:编辑器不支持vbs编程,单引号后是注释哦!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) '电脑读出这句话
效果图:
哈哈,只能听到哦!喜欢的点个赞❤吧!
-
用php打出前一天的时间格式,使用VBS获取当前日期的前一天 并修正输出格式
2021-04-08 08:02:59获取当前日期方法一:Currentdate1=date()msgbox Currentdate1获取当前日期方法二:Currentdate2=year(Now)&"-"&Month(Now)&"-"&day(Now)msgbox Currentdate2补充一个:如果想获取的日期前面是1位数...获取当前日期方法一: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中文网,转载请注明出处,感谢您的尊重!
-
vbs获取群聊当前内容_WINCC 一起学-VBS读取变量归档-一
2021-02-04 23:23:59WINCC 一起学-VBS读取变量归档题记:前段时间,看论坛里面有人在问关于VBS读取变量归档的问题,主要是数据库连接和操作方面的问题,我也试着帮忙解决了几个问题,也算学习了一下,现在就是一起做一个项目,通过脚本...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读取变量归档--四 实现简单报表
-
vbs:获取当前日期的前n天
2019-12-02 10:42:31代码如下,可以根绝自己需求更改,将代码保存在txt文本下,...rem ----作用:取当前时间的前1天(当前时间以系统时间为准)并将结果赋予变量my_date1--- my_date1 = DateAdd("d",-1,date) rem ----作用:取当前时间...代码如下,可以根绝自己需求更改,将代码保存在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
-
vbs 获取当前运行脚本的上级目录_网管日常bat脚本:jian程序关闭自动重启
2020-12-12 13:20:59相信当过网络管理员的小伙伴们总有一些需要7*24小时运行的监控程序要跑,可是因为千奇百怪的原因,这些程序跑一段时间后总会自己宕掉。虽说苦逼的网管总是需要全天候值班的,但现实中又不可能时刻盯着监控屏幕看是吧... -
VBS获取指定目录下最新文件拷贝然后以当前日期命名
2016-12-20 19:50:01VBS获取指定目录下最新文件拷贝然后以当前日期命名近期有个需求,想对数据的备份目录中数据再次远程拷贝到计算机上,所以我们就通过vbs脚本将备份目录下的最新文件拷贝到指定目录,然后以当前的系统日期命名,总结为... -
vbs教程《日期时间》
2016-12-29 18:13:49dim curdate,curtime,curdatetime dim mydate,mytime,mydatetime ...rem 获取当前时间: 时:分:秒 curtime = time() rem 获取现在时间: 年/月/日 时:分:秒 curdatetime = now() rem 将有效数据转成时间类型 mydat -
批处理获取昨天的系统时间(当前日期前一天)
2013-12-14 13:40:44说明:此方法不是单纯的DOS命令,需要配合vb脚本完成。方法如下:@echo offcd /d %~dp0echo %cd%echo wscript.echo ...tmp.vbs for /f "tokens=1,2,3 delims=/" %%i in ('cscript /nologo tmp.vbs') do ( set /... -
可显示农历的VBS+JS代码:
2007-01-17 16:49:00显示农历的VBS代码:script language=vbscript>Function nl()获取当前系统时间curTime = Now()Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), ... -
VBs读取SQLserver数据库,并写值到excel中
2017-03-17 14:54:002 '获取系统当前时间 3 t=Year(Now)&"."&Month(Now)&"."&Day(Now)&"-"&Hour(Now)&"."&Minute(Now)&"."&Second(Now) 4 Dim filename,sheetname ,xlApp, xlWorkbook... -
VBS中Now()函数返回中文日期格式解决办法
2007-01-22 11:02:00经常在代码中用Now()来获取当前日期,但是在不同的机器上,会返回不一样的值。英文操作系统肯定没问题,在中文系统上,有时候返回正常,有时候返回的日期格式中带“上午”之类的,导致INSERT到数据库的时候无法转换... -
oracle自动(删除)备份日志表
2015-02-10 09:27:471) 编写语句创建备份所需的文件夹(把以下语句粘贴到打偶后缀为vbs文件里,如createFolder.vbs...rem 获取当前系统时间--修改格式为--2013-07-04 StrDate = StrDate & Year(Date) If(M... -
一、Windows许可证即将过期怎么办
2019-03-05 08:19:00当Win10系统提示“windows许可证即将过期”窗口时,直接点击“转到‘设置’”按钮,此时将显示“Windows激活”界面,从此界面中可以获取当前Win10版本信息。 由于Win10激活即将过期,因此我们可以首先查看一下Win... -
Visual Basic开发实战1200例(第2卷)(完整版).(清华出版.孙秀梅.巩建华).part1
2016-06-15 00:31:36实例065 只输出日期时间型数据的日期部分 129 实例066 在不同数据环境中进行日期查询 129 3.8 大小比较、逻辑查询 131 实例067 查询数据大于指定条件的数据 131 实例068 NOT与谓词进行组合条件的查询 133 实例... -
Visual Basic开发实战1200例(第2卷)(完整版).(清华出版.孙秀梅.巩建华).part2
2016-06-15 00:34:01实例065 只输出日期时间型数据的日期部分 129 实例066 在不同数据环境中进行日期查询 129 3.8 大小比较、逻辑查询 131 实例067 查询数据大于指定条件的数据 131 实例068 NOT与谓词进行组合条件的查询 133 实例... -
等待页面加载超时时间。单位:毫秒。如果指定了该参数,窗体会等到渲染完成再一次性显示出来。 icon string 窗体图标路径 title string 窗体标题 minbox bool 最小化窗体按钮,默认值:true maxbox bool ...
-
思科信任代理加速伴侣
2010-05-10 09:13:461、增加是否测试DNS的选项,默认测试DNS(在logon.vbs的脚本设置部分); 2、取消安装时收集网段,你可以手动收集网段; (从开始、程序、思科信任代理加速伴侣(Cisco Trust Agent Speeder)(开源) 1.3.1中运行... -
求助,关于VBScript,登陆网页之后,无法点击按钮提交
2015-04-16 04:50:15<tr> <td width='2%' height='26'> </td><td width='17%' height='26'>员工姓名:</font></td><td width='17%' height='26'> 张三</td><td width='22%' height='26'>当前时间:</td> <td width='37%' height='26'>... -
arcgis工具
2012-10-22 22:37:31例如,假如用户已选定了公司可能购买的地块,现在想获取邻近地块的信息。这种情况下,利用该选项选择选中地块零距离范围内的所有地块即可。 中心在…里(Have their center in) 这种方法选择某一图层上的要素,...