VBS脚本实现Wincc系统时间的读取，并将系统时间通过变量分离出年、月、日、时、分、秒。在自定义报表中，可以很方便的调用变量来显示系统时间。
工具/原料
Wincc7.4
VBS编辑器
方法/步骤
1、打开Wincc变量管理器，在内部变量中新建Date组，在Date组中分别建立年、月、日、时、分、秒的变量，数据格式为16位无符号数。建立日期的变量，变量格式位8位文本变量。
2、打开Wincc图形编辑器，新建一个画面，辜染蜊矶拖入IO域，分别连接年、月、日、时、分、秒的变量，输出格式为十进制。拖淀尬逄攻入IO域，连接日期变量，输出格式为字符串。拖入应用程序窗口，选择全局脚本GSCDiagnostics,方便调试全局脚本。
3、打开Wincc全局脚本，在VBS-Editor中右键单击，弹出快捷菜单，选择打开。打开VBS编辑器。
4、编写控制代码。DimDate_riqi Dimriqi Setriqi屏顿幂垂=HMIRuntime.Tags("肛舀辨乔Date_riqi") DimDate_Year SetDate_Year=HMIRuntime.Tags("Date_Year") DimDate_Month SetDate_Month=HMIRuntime.Tags("Date_Month") DimDate_Day SetDate_Day=HMIRuntime.Tags("Date_Day") DimDate_Hour SetDate_Hour=HMIRuntime.Tags("Date_Hour") DimDate_Minute SetDate_Minute=HMIRuntime.Tags("Date_Minute") DimDate_Second SetDate_Second=HMIRuntime.Tags("Date_Second") Dimflag1 Setflag1=HMIRuntime.Tags("Flag") Date_Year.Read Date_Year.WriteCStr(Year(Now)) Date_Month.Read Date_Month.WriteCStr(Month(Now)) Date_Day.Read Date_Day.WriteCStr(Day(Now)) Date_Hour.Read Date_Hour.WriteCStr(Hour(Now)) Date_Minute.Read Date_Minute.WriteCStr(Minute(Now)) Date_Second.Read Date_Second.WriteCStr(Second(Now)) flag1.Read Ifflag1.Value=1Then Date_riqi=CStr(Year(Now))&"-"&Right("00"&CStr(Month(Now)),2)&"-"&Right("00"&CStr(Day(Now)),2) riqi.Read riqi.Write""&Date_riqi&"" DimUA_dayrpt_ID SetUA_dayrpt_ID=HMIRuntime.Tags("@UA_dayrpt_ID")DimUA_dayrpt_Job SetUA_dayrpt_Job=HMIRuntime.Tags("@UA_dayrpt_Job") UA_dayrpt_ID.Read UA_dayrpt_ID.Write-1 UA_dayrpt_Job.Read UA_dayrpt_Job.Write6EndIf编译保存。
5、仿真运行。系统时间已经分别显示在年、月、日、时、分、秒的变量IO域中。日期IO域也显示当前系统日期。
