컴퓨터 시간을 이용하지 않고 timestamp 이용하기
조회수 1073회
Private Sub group_DataChange(TransactionID As Integer, NumItems As Integer, ByRef ClientHandles As Array, ByRef ItemValues As Array, ByRef Qualities As Array, ByRef TimeStamps As Array) Handles group.DataChange
Dim UpdateParkListDisplay As Boolean = False
Dim UpdateBellListDisplay As Boolean = False
Dim UpdateDisasterListDisplay As Boolean = False
For i As Integer = 1 To NumItems
OPCTag(ClientHandles(i)).Value = ItemValues(i).ToString
'Update List info
Select Case ClientHandles(i)
Case 1 To Park_No '21 'Park Info
UpdateParkListDisplay = True
'Exit Select
Case Park_No + 1 To Bell_Status_No '175 'Bell Status
BellList(ClientHandles(i) - Park_No).EventTime = Now.ToLongDateString + Now.ToLongTimeString
BellList(ClientHandles(i) - Park_No).status = OPCTag(ClientHandles(i)).Value
UpdateBellListDisplay = True
Case Bell_Status_No + 1 To Bell_Title_No '329 'Bell Title
BellList(ClientHandles(i) - Bell_Status_No).Title = OPCTag(ClientHandles(i)).Value
UpdateBellListDisplay = True
Case Bell_Title_No + 1 To Bell_Stair_No '483 'Bell Stair
BellList(ClientHandles(i) - Bell_Title_No).stair = OPCTag(ClientHandles(i)).Value
UpdateBellListDisplay = True
'--------------------------------------------------------------------------------------------------
Case Bell_Stair_No + 1 To Disaster_Status_No '587 'Disaster Status
DisasterList(ClientHandles(i) - Bell_Stair_No).EventTime = Now.ToLongDateString + Now.ToLongTimeString
DisasterList(ClientHandles(i) - Bell_Stair_No).status = OPCTag(ClientHandles(i)).Value
UpdateDisasterListDisplay = True
Case Disaster_Status_No + 1 To Disaster_Title_No '691 'Disaster Title
DisasterList(ClientHandles(i) - Disaster_Status_No).Title = OPCTag(ClientHandles(i)).Value
UpdateDisasterListDisplay = True
Case Disaster_Title_No + 1 To Disaster_Stair_No '795 'Disaster Stair
DisasterList(ClientHandles(i) - Disaster_Title_No).stair = OPCTag(ClientHandles(i)).Value
UpdateDisasterListDisplay = True
Case Else
'Exit Select
End Select
위 코드를 보시면 현재 BellList(ClientHandles(i) - Park_No).EventTime = Now.ToLongDateString + Now.ToLongTimeString
이부분에 BellList값이 변경이되면 그 변경된 시간을 컴퓨터의 시간을 가져와서 보여지게 되는데요
이 부분을 ByRef TimeStamps As Array) 를 이용해서 컴퓨터 시간이 아닌 타임스탬프로 찍어내려고 하는데 코딩을 어떻게 수정하면 좋을까요?
고귀한 답변 부탁드립니다.
-
(•́ ✖ •̀)
알 수 없는 사용자
1 답변
-
질문이 명확하지 않아 답변이 달리지 않는 것 같습니다.
타임스탬프의 의미는 '시점' 이라는 뜻입니다.
컴퓨터 시간도 타임스탬프가 될 수 있고, unix epoch time 도 타임스탬프가 될 수 있습니다. 현재 시간을 표현할 수 있는 모든 방법이 타임스탬프가 될 수 있습니다.
'컴퓨터 시간이 아닌 타임스탬프' 라는 표현이 명확하지 않습니다.
질문에서 의도하는 타임스탬프가 unix epoch time 인 1970년 부터 지난 초를 의도하시는 건지 명확해야 할 듯 합니다.ㅎㅎ
-
(•́ ✖ •̀)
알 수 없는 사용자
-
댓글 입력