[asmarsou]

(07-05-22, 09:21 AM)حسن الجلب كتب : تمام ولكن انا عاوز الفرق باليوم والشهر والسنة ولكن حين جربت هذه الطريقه طلعت غلط وارقام بالسالب

و عليكم السلام و رحمة الله و بركاته
 ضع اداة  ديت تايم بيكر و بوتن و تاكست بوكس و ضع الكود التالي للبوتن

كود :

Dim yr As Integer = DateDiff(DateInterval.Year, DateTimePicker1.Value, Now)
       Dim month As Integer = DateDiff(DateInterval.Month, DateTimePicker1.Value, Now) Mod 12
       Dim day As Integer = DateDiff(DateInterval.Day, DateTimePicker1.Value, Now) Mod 30 - 10
       TextBox1.Text = "you have :" & yr & " Years / " & month & " Months /" & day & " days "