Dim data1 As Date = Nothing
        Dim data2 As Date = Nothing
        Dim ggDiff As Integer = 0
        For n = 0 To DataGridView1.Rows.Count - 1

            If n > 0 And n < DataGridView1.Rows.Count - 1 Then 'IList primo giro lo salti si parte direttamente dalla seconda riga in modo che potrai risalire a leggere la data delle riga precedente per fare la differenza; salti anche l'ultima riga


                data1 = CDate(DataGridView1.Rows(n).Cells("data").Value)
                data2 = CDate(DataGridView1.Rows(n - 1).Cells("data").Value)

                ggDiff = DateDiff(DateInterval.Day, data2, data1)

                DataGridView1.Rows(n).Cells("diff").Value = ggDiff


            End If

        Next