Trerank_101
Member
Hi all,
The script is used to convert a date from siemens S7 PLC read by the Ifix database as a word to the current date. I was wondering how do I diplay the date as a datalink in the workspace instead of a message box.
I am working towards displaying batch start & end times & dates in the workspace.
Private Sub Text483_Click()
Dim FirstDate As Date ' Declare variables.
Dim IntervalType As String
Dim Number As Integer
Dim Msg
IntervalType = "d" ' "d" specifies days as interval.
FirstDate = "01/01/1989"
Number = Fix32.PAREMC1.DA_DATE_STRT.A_CV
Msg = "New date: " & DateAdd(IntervalType, Number, FirstDate)
MsgBox Msg
End Sub
regards
Trerank
The script is used to convert a date from siemens S7 PLC read by the Ifix database as a word to the current date. I was wondering how do I diplay the date as a datalink in the workspace instead of a message box.
I am working towards displaying batch start & end times & dates in the workspace.
Private Sub Text483_Click()
Dim FirstDate As Date ' Declare variables.
Dim IntervalType As String
Dim Number As Integer
Dim Msg
IntervalType = "d" ' "d" specifies days as interval.
FirstDate = "01/01/1989"
Number = Fix32.PAREMC1.DA_DATE_STRT.A_CV
Msg = "New date: " & DateAdd(IntervalType, Number, FirstDate)
MsgBox Msg
End Sub
regards
Trerank