컴퓨터 시간을 이용하지 않고 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년 부터 지난 초를 의도하시는 건지 명확해야 할 듯 합니다.ㅎㅎ

    • (•́ ✖ •̀)
      알 수 없는 사용자

답변을 하려면 로그인이 필요합니다.

프로그래머스 커뮤니티는 개발자들을 위한 Q&A 서비스입니다. 로그인해야 답변을 작성하실 수 있습니다.

(ಠ_ಠ)
(ಠ‿ಠ)