Private Sub dgMovimentiOperatore_CellParsing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellParsingEventArgs) Handles dgMovimentiOperatore.CellParsing
        Select Case e.ColumnIndex
            Case 0
            Case 1 'Data Inizio
                Dim dOld As DateTime = Convert.ToDateTime(dgMovimentiOperatore.Rows(dgMovimentiOperatore.CurrentCell.RowIndex).Cells(2).Value.ToString)
                Dim dNew As DateTime = Convert.ToDateTime(e.Value.ToString)
                e.Value = New DateTime(Year(dNew), Month(dNew), DateAndTime.Day(dNew), Hour(dOld), Minute(dOld), Second(dOld))
                e.ParsingApplied = True
            Case 2 'Ora Inizio
                Dim dOld As DateTime = Convert.ToDateTime(dgMovimentiOperatore.Rows(dgMovimentiOperatore.CurrentCell.RowIndex).Cells(1).Value.ToString)
                Dim dNew As DateTime = Convert.ToDateTime(e.Value.ToString)
                e.Value = New DateTime(Year(dOld), Month(dOld), DateAndTime.Day(dOld), Hour(dNew), Minute(dNew), Second(dNew))
                e.ParsingApplied = True
            Case 3
                Dim dOld As DateTime = Convert.ToDateTime(dgMovimentiOperatore.Rows(dgMovimentiOperatore.CurrentCell.RowIndex).Cells(4).Value.ToString)
                Dim dNew As String = Convert.ToDateTime(e.Value.ToString)
                e.Value = New DateTime(Year(dNew), Month(dNew), DateAndTime.Day(dNew), Hour(dOld), Minute(dOld), Second(dOld))
                e.ParsingApplied = True
            Case 4
                Dim dOld As DateTime = Convert.ToDateTime(dgMovimentiOperatore.Rows(dgMovimentiOperatore.CurrentCell.RowIndex).Cells(3).Value.ToString)
                Dim dNew As String = Convert.ToDateTime(e.Value.ToString)
                e.Value = New DateTime(Year(dOld), Month(dOld), DateAndTime.Day(dOld), Hour(dNew), Minute(dNew), Second(dNew))
                e.ParsingApplied = True
        End Select
    End Sub