[imam_boune]

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

[alsalamoni]

(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

[imam_boune]

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

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

[alshandodi]

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

[anis]

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

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

[imam_boune]

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