Hello to All,

Im using 319CPU (DB with absolut Address) and WinCC pro TiA15.1. I would like to connect Date and TimeOfDay in DateTime form and show it on Vizu. I wrote the Script but the Result is shown as Integer and not as DateTime. What Im doing wrong? More in Attachment.

Hello Otto,

try the following:

...

TimeX = Time(HMIRuntime.Tags("...Cas...").Read)

DateX = Date(HMIRuntime.Tags("...Datum...").Read)

...

Or you merge date and time on the PLC to a tag of type Date_and_Time.

For your information: The integer values are days since 01.01.1991 resp. time since midnight in ms.

Regards,

Frink

Hello Prof. Frink,

Well I found another Solution.

For Date:

PLC Date is from 1990.01.01. VBS Date from 1890.01.01. So I made Offset Date and merge Offset Date integer with PLC Date integer.

Sub Datum(ByRef ts, ByVal TekstPodatkov, ByVal Datum)

Dim DatumOffset

DatumOffset = DateSerial(1990,1,1)

Datum = Datum + DatumOffset

ts.WriteLine(TekstPodatkov &  ";" & Datum)

End Sub

For Time:

PLC Time is Integer of Miliseconds and need to be converted

Sub Milis(ByRef ts, ByVal TekstPodatkov, ByVal TimeMili)

Dim intSecond, intMinute, intHour
Dim text

intSecond = Int(TimeMili / 1000)
intMinute = Int(intSecond / 60)
intSecond = intSecond Mod 60
intHour = Int(intMinute / 60)
intMinute = intMinute Mod 60
text = intHour & ":" & intMinute & ":" & intSecond

ts.WriteLine(TekstPodatkov &  ";" & text)

End Sub