精华内容
下载资源
问答
  • 主要介绍了vbs获取当前时间日期的代码,需要的朋友可以参考下
  • vbs控制电脑说话,vbs获取时间,vbs小程序

    千次阅读 多人点赞 2018-12-19 10:01:58
    VBS也挺强大的呢,这篇给大家演示的是获取当前时刻,并根据不同的时间段来问好! 注:编辑器不支持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)     '电脑读出这句话
    

    效果图:
    在这里插入图片描述
    哈哈,只能听到哦!

    喜欢的点个赞❤吧!

    展开全文
  • 获取当前日期方法一: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中文网,转载请注明出处,感谢您的尊重!

    展开全文
  • WINCC 一起学-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。

    1b240f832819537aa8aad7bcd153c094.png

    图1

    同时变量在全局脚本里面进行周期性赋值

    T:画幅值是10周期10秒的正弦波

    T:0-10的随机数

    P:T/100进行累加

    脚本如下:

    d09fef638a2f5d6fc41ce06799454cdb.png

    图2

    触发方式:周期->250ms

    2.3 变量归档

    新建名为:TAGR的过程值归档,为减少数据库的大小,采样和归档时间我设置成1S,其他设置默认。如图,前三个,下面的请忽略

    71a75bb64213ff99ee292ee2fe9b11dc.png

    图3

    2.4 设计画面

    本人的审美不咋的,就随便做一个画面用来测试。

    画面内容:

    3个IO域,显示3个变量的实际值;1个在线趋势控件,显示变量趋势;标尺控件方便查看历史值,Listview控件:方便后面导出显示;应用程序:脚本诊断,用于输出脚本是否正常。最右一个按钮,名为测试。运行后如图

    55342d62b7c3731c33129d8fd39b6d94.png

    图4

    1楼还有

    附上2的链接

    WINCC一起学-VBS读取变量归档-三

    WINCC一起学-VBS读取变量归档--四 实现简单报表

    展开全文
  • 代码如下,可以根绝自己需求更改,将代码保存在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  
      
    
    
    

     

     

     

    展开全文
  • 相信当过网络管理员的小伙伴们总有一些需要7*24小时运行的监控程序要跑,可是因为千奇百怪的原因,这些程序跑一段时间后总会自己宕掉。虽说苦逼的网管总是需要全天候值班的,但现实中又不可能时刻盯着监控屏幕看是吧...
  • VBS获取指定目录下最新文件拷贝然后以当前日期命名近期有个需求,想对数据的备份目录中数据再次远程拷贝到计算机上,所以我们就通过vbs脚本将备份目录下的最新文件拷贝到指定目录,然后以当前的系统日期命名,总结为...
  • vbs教程《日期时间

    千次阅读 2016-12-29 18:13:49
    dim curdate,curtime,curdatetime dim mydate,mytime,mydatetime ...rem 获取当前时间: 时:分:秒 curtime = time() rem 获取现在时间: 年/月/日 时:分:秒 curdatetime = now() rem 将有效数据转成时间类型 mydat
  • 说明:此方法不是单纯的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), ...
  • 2 '获取系统当前时间 3 t=Year(Now)&"."&Month(Now)&"."&Day(Now)&"-"&Hour(Now)&"."&Minute(Now)&"."&Second(Now) 4 Dim filename,sheetname ,xlApp, xlWorkbook...
  • 经常在代码中用Now()来获取当前日期,但是在不同的机器上,会返回不一样的值。英文操作系统肯定没问题,在中文系统上,有时候返回正常,有时候返回的日期格式中带“上午”之类的,导致INSERT到数据库的时候无法转换...
  •     1) 编写语句创建备份所需的文件夹(把以下语句粘贴到打偶后缀为vbs文件里,如createFolder.vbs...rem 获取当前系统时间--修改格式为--2013-07-04   StrDate = StrDate &amp; Year(Date)   If(M...
  • 当Win10系统提示“windows许可证即将过期”窗口时,直接点击“转到‘设置’”按钮,此时将显示“Windows激活”界面,从此界面中可以获取当前Win10版本信息。 由于Win10激活即将过期,因此我们可以首先查看一下Win...
  • 实例065 只输出日期时间型数据的日期部分 129 实例066 在不同数据环境中进行日期查询 129 3.8 大小比较、逻辑查询 131 实例067 查询数据大于指定条件的数据 131 实例068 NOT与谓词进行组合条件的查询 133 实例...
  • 实例065 只输出日期时间型数据的日期部分 129 实例066 在不同数据环境中进行日期查询 129 3.8 大小比较、逻辑查询 131 实例067 查询数据大于指定条件的数据 131 实例068 NOT与谓词进行组合条件的查询 133 实例...
  • 等待页面加载超时时间。单位:毫秒。如果指定了该参数,窗体会等到渲染完成再一次性显示出来。 icon string 窗体图标路径 title string 窗体标题 minbox bool 最小化窗体按钮,默认值:true maxbox bool ...
  • 1、增加是否测试DNS的选项,默认测试DNS(在logon.vbs的脚本设置部分); 2、取消安装时收集网段,你可以手动收集网段; (从开始、程序、思科信任代理加速伴侣(Cisco Trust Agent Speeder)(开源) 1.3.1中运行...
  • <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) 这种方法选择某一图层上的要素,...

空空如也

空空如也

1 2
收藏数 22
精华内容 8
关键字:

vbs获取当前时间