Function Text_Trigger(ByVal Item)
Dim objTag
Dim var
Set objTag = HMIRuntime.Tags("datumzeit")
objTag.Read
var = objtag.value
Dim tx,yr,hr,mn,ss
tx = "20"
If (var(0)>=144) Then tx="19"
yr = Hex(var(2))
hr = Hex(var(3))
mn = Hex(var(4))
ss = Hex(var(5))
If (Len(yr)<2) Then yr = "0" + yr
If (Len(hr)<2) Then hr = "0" + hr
If (Len(mn)<2) Then mn = "0" + mn
If (Len(ss)<2) Then ss = "0" + ss
Text_Trigger = Hex(var(2)) +"." + Hex(var(1)) + "." + tx + yr + " " + hr + ":" + mn + ":" + ss
End Function