Время в тайм аут для VB.NET пожалуйста помогите

---

У нас есть дипломная работа, и это система расчета заработной платы со штрих-кодом мониторинга посещаемости. Я не знаю, с чего начать, когда речь заходит о записи времени входа и выхода каждого сотрудника. Может ли кто - нибудь помочь мне с кодами для тайм-аута и тайм-аута? Наш консультант хочет, чтобы мы использовали только одно текстовое поле как для времени входа, так и для времени выхода.

нужна помощь как можно скорее

Что я уже пробовал:

На данный момент у меня есть два текстовых поля, и они записывают timein и timeout просто отлично. Но точно так же, как я сказал, ввод должен быть записан только в одно текстовое поле. И он должен быть введен автоматически без кнопок. И время, которое записывается в базу данных, происходит от метки, я знаю, что есть лучший способ, но я просто не знаю, как его включить. ниже приведен мой текущий код(с помощью кнопок).

<pre lang="vb">
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        conn()
        Dim Reader As MySqlDataReader
        Mysqlconn.Open()
        Try

            Dim query As String
            query = "insert into db_payroll.tbltimein (code, timein, date) values ('" & TextBox1.Text & "', '" & Label5.Text & "', '" & Label6.Text & "') "
            Command = New MySqlCommand(query, Mysqlconn)
            Reader = Command.ExecuteReader

            TextBox1.Text = ""

            btn_Refresh.PerformClick()
            Mysqlconn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)

        Finally
            Mysqlconn.Dispose()
        End Try
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        conn()
        Dim Reader As MySqlDataReader
        Mysqlconn.Open()
        Try

            Dim query As String
            query = "insert into db_payroll.tbltimeout (code, timeout, date) values ('" & TextBox1.Text & "', '" & Label5.Text & "', '" & Label6.Text & "') "
            Command = New MySqlCommand(query, Mysqlconn)
            Reader = Command.ExecuteReader

            TextBox1.Text = ""

            btn_refreshout.PerformClick()
            Mysqlconn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)

        Finally
            Mysqlconn.Dispose()
        End Try
    End Sub

---