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 ' عدد الأيامقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».