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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=33555)



استفسار عن فكرة برمجية - imam_boune - 25-02-20

السلام عليكم ورحمة الله
الفكرة هي : لما اقوم باختيار تاريخ الميلاد للطالب يتم كتابة عمره تلقائيا في خانة TextBox
وشكرا لكم مقدما


RE: استفسار عن فكرة برمجية - alsalamoni - 25-02-20

(25-02-20, 01:11 PM)imam_boune كتب : السلام عليكم ورحمة الله
الفكرة هي : لما اقوم باختيار تاريخ الميلاد للطالب يتم كتابة عمره تلقائيا في خانة TextBox
وشكرا لكم مقدما

كود :
TextBox1.Text = CInt((Today - DateTimePicker1.Value.Date).TotalDays / 365)

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



RE: استفسار عن فكرة برمجية - imam_boune - 25-02-20

(25-02-20, 01:11 PM)imam_boune كتب : السلام عليكم ورحمة الله
الفكرة هي : لما اقوم باختيار تاريخ الميلاد للطالب يتم كتابة عمره تلقائيا في خانة TextBox
وشكرا لكم مقدما

جزاكم الله خيرا
تم الامر بنجاح


RE: استفسار عن فكرة برمجية - alshandodi - 25-02-20

وعليكم السلام ورحمة الله وبركاته
هذا المثال البسيط لحساب العمر بالضبط
اتمنى ان يكون ذو فائده


RE: استفسار عن فكرة برمجية - anis - 27-02-20

Private Sub datetimepiker1_KeyUp(sender As Object, e As KeyEventArgs) Handles AgeTextBox.KeyUp
        If e.KeyCode = Keys.Enter Then
            
            AgeTextBox.Text = DateTime.Now.Year - Date_de_naissanceDateTimePicker.Value.Year


        End If
    End Sub

اخي الفاضل جرب هذا الكود و بالتوفيق


RE: استفسار عن فكرة برمجية - imam_boune - 28-02-20

شكرا جزاكم الله خيرا