Dim lc As Integer = ListView3.Items.Count - 1
        For i As Integer = 0 To lc
            Dim r As Record, li As ListViewItem = ListView3.Items(i)
            r.ID = li.SubItems(0).Text
            If i = 0 Then
                r.DataIni = ListView3.Items(i).SubItems(1).Text
            Else
                r.DataIni = DateTime.Parse(li.SubItems(1).Text)
            End If
            If i > lc Then
                r.DataFin = (DateTime.Parse(ListView3.Items(i + 1).SubItems(2).Text)).Date.AddDays(-1)
            Else
                r.DataFin = ListView3.Items(i).SubItems(2).Text
            End If
next