Tạo ô nhập và hển thị ngày giờ trên wincc v7.0

[thangkho89]

Dim chan
Dim le
Dim tam
Set chan = HMIRuntime.Tags("chan")
Set le = HMIRuntime.Tags("le")
tam = Day(Now()) - 2*(Day(Now())\2)
If tam = 0 Then
chan.Write(1)
le.Write(0)
Else
le.Write(1)
chan.Write(0)
End If
// trên đây là 1 ví dụ mà mình làm để kiểm tra ngày chẵn lẻ, bạn có thể sử dụng hàm về hour, minute và second cái này có thể tìm trên mạng