[حسن الجلب]

السلام عليكم ورحمه الله وبركاته عاوز كود لحساب العمر

[essawq]

(06-05-22, 09:32 AM)حسن الجلب كتب : السلام عليكم ورحمه الله وبركاته عاوز كود لحساب العمر

تفضل اخي لقيت عندي برنامج اذا اعجبك حملة وشوف 

حمل من هنا

تحياتي لك

[أبووسم]

كود :

TextBox1.Text = DateTime.Now.Year - DateTimePicker1.Value.Year

ضع تكست بوكس و داتا تايم

و ضع الكود في البوتين

[حسن الجلب]

تمام ولكن انا عاوز الفرق باليوم والشهر والسنة ولكن حين جربت هذه الطريقه طلعت غلط وارقام بالسالب

[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 "

[سعود]

مشاركة لاخواني اضع هذا الرابط