منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كيفيه حساب العمر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيفيه حساب العمر (/showthread.php?tid=41365)

كيفيه حساب العمر - حسن الجلب - 06-05-22

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

RE: كيفيه حساب العمر - essawq - 06-05-22

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

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

حمل من هنا
تحياتي لك


RE: كيفيه حساب العمر - أبووسم - 06-05-22

كود :
TextBox1.Text = DateTime.Now.Year - DateTimePicker1.Value.Year

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

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

RE: كيفيه حساب العمر - حسن الجلب - 07-05-22

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

RE: كيفيه حساب العمر - asmarsou - 07-05-22

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


RE: كيفيه حساب العمر - سعود - 08-05-22


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