[moustafakamel95]

السلام عليكم 

محتاج كود حساب الفرق بين تاريخين بالايام 

بمعني ان اختار التاريخ فوق  واختار التاريخ تحت يظهر لي عدد الايام  وكام شهر 

مثل

[moustafakamel95]

من فضلكم الرد

[Taha Okla]

وعليكم السلام

كود :

Dim TotalDays1 = (DateTimePicker2.Value - DateTimePicker1.Value).TotalDays
Dim TotalYears1 = Math.Truncate(TotalDays1 / 365)
Dim TotalMonths1 = Math.Truncate((TotalDays1 Mod 365) / 30)
Dim RemainingDays1 = Math.Truncate((TotalDays1 Mod 365) Mod 30)

TextBox3.Text = TotalYears1     '  عدد السنوات
TextBox4.Text = TotalMonths1    '   عدد الشهور
TextBox5.Text = RemainingDays1  '    عدد الأيام

[مصطفى مصطفى]

وعليكم السلام

Dim str1 As String =  DateTimePicker1.Text

Dim str2 As String = DateTimePicker2.Text

Dim D1 As DateTime = DateTime.Parse(str1).Date

 Dim D2 As DateTime = DateTime.Parse(str2).Date

Dim Days As Single = (D2 - D1).TotalDays