12-12-23, 06:28 AM
السلام عليكم
محتاج كود حساب الفرق بين تاريخين بالايام
بمعني ان اختار التاريخ فوق واختار التاريخ تحت يظهر لي عدد الايام وكام شهر
مثل
13-12-23, 03:21 AM
من فضلكم الرد
13-12-23, 07:19 AM
وعليكم السلام
كود :
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 ' عدد الأيام29-01-24, 04:05 PM
وعليكم السلام
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