紧接着前面的练习，在unity中新建一个双整型变量strTime，然后写下面的程序

这个程序就是将时间转换为双整型。

在citect2018中新建一个IO变量TimeInt和一个内部字符串变量strTime

打开cicode编辑器，新建一个citectVBA文件，写以下代码

Function IntToTimestr1()
Dim strHour As Integer
Dim strMinute As Integer
Dim strSecond As Integer
strSecond=TimeInt Mod 60
strMinute=((TimeInt-strSecond) Mod 3600)/60
strHour=(TimeInt-strMinute*60-strSecond)/3600
strTime =cstr(strHour)&":"&cstr(strMinute)&":"&cstr(strSecond)

End Function

保存，编译，没有报错

 

在画面上放置一个数字控件，关联strTime，放置一个按钮控件，按钮的鼠标弹起命令写以下代码：

civba call IntToTimestr1()

保存，编译，运行，按下按钮，画面上就能用字符串显示时间了。

 

由于citect2018的变量没有日期事件类型的，所以没有直接获取PLC中的时间变量，所以我先转换成双整型，也就是转换成秒，然后编程逐步提取秒、分、小时数据。不设置时间类型变量，这一点我觉得有点奇怪，西门子公司的wincc软件变量类型就丰富得多，也许是我掌握的不够吧。