精华内容
下载资源
问答
  • 主要介绍了vbs获取当前时间日期的代码,需要的朋友可以参考下
  • 编写控制代码。Dim Date_riqiDim riqiSet riqi=HMIRuntime.Tags("Date_riqi")Dim Date_YearSet Date_Year=HMIRuntime.Tags("Date_Year")Dim Date_MonthSet Date_Month=HMIRuntime.Tags("Date_Month")Dim Date_DaySet...

    编写控制代码。

    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_riqiDim riqiSet riqi=HMIRuntime.Tags("Date_riqi")Dim Date_YearSet Date_Year=HMIRuntime.Tags("Date_Year")Dim Date_MonthSet Date_Month=HMIRuntime.Tags("Date_Month")Dim Date_DaySet...

    编写控制代码。

    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

    编译保存。

    展开全文
  • 更新为自动判断时间格式,WIN7 XP测试通过,WIN8待测试,主要是通过获取百度的相关信息然后跟系统时间进行比较
  • 获取系统本次及上次开关机时间vbs代码,经测试兼容WinXP/win2003/Win7系统,喜欢的朋友可以收藏下
  • VBS获取毫秒的时间方法整理

    千次阅读 2019-01-08 02:55:28
    vbs取得毫秒 timer函数的定义为:一般作为定时器比较的好,计算时间不太好 The Timer function returns the number of seconds, and milliseconds, since 12:00 AM. 返回正中午 12 时以后已经过去的秒数。 time1=...

    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位

    展开全文
  • 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读取变量归档--四 实现简单报表

    展开全文
  • 更新为自动判断时间格式 WIN7 XP 测试通过 WIN8 待测试 主要是通过获取百度的 相关信息然后跟系统时间进行比较 代码如下 : 'VBS 校准系统时间 BY BatMan  Dim objXML, Url, Message  Message = "恭喜你本...
  • wincc系统日期时间获取系统时间的获得,有两种办法,一是建立TAG,二是使用函数获取系统时间方法一:在[Tag Management]添加新的驱动"SystemInfo.chn",然后在新添加的[SYSTEMINFO]新建连接,这样就可以创建实际TAG了;...
  • UNIX时间,或称POSIX时间是UNIX或类UNIX系统使用的时间表示方式:从协调世界时1970年1月1日0时0分0秒起至现在的总秒数,不包括闰秒。
  • 如何获取XP系统的开机时间? 下面给出两种代码,保存到扩展名为vbs的文件中。具体哪个请根据自己需求决定。 一:根据系统日志,查看开机时间和关机时间,---- 使用弹出对话框的形式 Set WMI = GetObject("...
  • } VBS脚本部分: Dim args set args = wscript.arguments CreateObject("SAPI.SpVoice").Speak "本次开机用时 "&args(0)&"分"&args(1)&"秒" 将VBS脚本保存为voice.VBS与可执行文件保存在同一目录下, 再将可执行文件...
  • 我们在D盘下的data目录下有系统的备份文件,然后以日期命名,我们想通过获取文件的最后 一次修改时间进行获取最新文件,然后进行拷贝 然后拷贝到指定目录中,我们也可以拷贝到远程计算机 我们在...
  • gt创建SYSTEM INFO通道,创建字符串内部变量,选择对应的日期格式以及时间格式即可。2、文本对象-&gt属性-&gt文本,使用C脚本,触发周期1S:#pragma code("kernel32.dll")BOOL GetLocalTime(LPSYSTEMTIME);#...
  • 代码如下,可以根绝自己需求更改,将代码保存在txt文本下,...rem ----作用:取当前时间的前1天(当前时间以系统时间为准)并将结果赋予变量my_date1--- my_date1 = DateAdd("d",-1,date) rem ----作用:取当前时间...
  • strComputer = "."strMesseage=""Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!... "\root\cimv2")'获取本机计算机名Set colSettings = objWMIService.ExecQuery ("S...
  • 为了测试某模块的效率,将某模块的不同修改版本从系统中拿出来单独执行。 准备查看执行时长。 然后发现模块打印的日志的日期时间部分,是由后台服务记录的。 拿出来单独执行的日志中没有日期时间。。。 于是...
  • 通过系统的ping命令可以查看网络是否...PIng命令本身不能记录日志,且没有ping的时间记录,这个小工具或许能解决你的问题,自动隐藏活动窗口(通过设置也可激活窗口),获取Ping的时间记录,自定义日志文件路径配置……
  • 最近想通过用户密码过期邮件提醒脚本想换一种执行方法,原来方法是vbs连接到AD后台获取用户的相关字段属性,然后判断,然后现在系统升级了,用户的相关信息被保存到了SQL数据库中,所以想通过vbs连接数据库进行判断...
  • 格式: %time%注:cmd中测试需要用echo %time%,bat中直接使用即可结果: 20:50:29.66这是获取系统标准格式的日期和时间,但是有时候我们需要使用规定的格式,怎么办呢?格式: %date:~x,y%以及%time:~x,...
  • 在wincc的智能对象中使用控件选择DaclockCtrl即可调用的控件名称为...nbsp第12级2009-12-05 09:56:02一是读取PLC的时间,当然PLC的时间要准确:1)在WinCC里建6个变量,分别为DB1.DBB0、DB1.DBB1、DB1.DBB2、D...
  • 获取启动时间

    2021-02-10 10:23:44
    启动Activity类名: +955ms 通过系统获取启动时间;2、获取启动时间二、 (1) adb命令获取:adb shell am start -W 包名/.启动Activity类名 (2) 执行结果: launch:COLD,WARM,HOT ThisTime: 100 代表最后一个Activity...
  • gt创建SYSTEM INFO通道,创建字符串内部变量,选择对应的日期格式以及时间格式即可。2、文本对象-&gt属性-&gt文本,使用C脚本,触发周期1S:#pragma code("kernel32.dll")BOOL GetLocalTime(LPSYSTEMTIME);#...
  • WinCC显示时间以及输出系统时间

    千次阅读 2019-06-27 16:26:42
    我需要从WinCC 向Excel里面写一个日期和时间, 直接在VBS脚本里建立一个变量: Dim mytime mytime=TIME 直接输出这个mytime就行了。 TIME是系统字符,相应的,DATE也是这样写。 ...
  • 2 '获取系统当前时间 3 t=Year(Now)&"."&Month(Now)&"."&Day(Now)&"-"&Hour(Now)&"."&Minute(Now)&"."&Second(Now) 4 Dim filename,sheetname ,xlApp, xlWorkbook...
  • 获取网络时间,并根据业务,设置本机日期时间
  • 返回vbs脚本

    2021-03-17 17:11:09
    bat批处理文件中如何获取vbs中的返回值bat批处理文件中如何获取vbs中的返回值例如:@echo offset date1=2011-5-10echo WScript.Echo datepart(“ww”,’%date1%’)>%temp%\t.vbs会得到一个:WScript.Echo ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 5,685
精华内容 2,274
关键字:

vbs获取系统时间