[ملهمـ]

كود :

Dim Date1 As Date
       Dim Date2 As Date
       Dim diff As Integer

       Date1 = DateTimePicker1.Value
       Date2 = DateTimePicker2.Value
       diff = DateDiff(DateInterval.Day, Date1, Date2)
       TextBox1.Text = diff