السلام عليكم
فرضا عندي زبون واراد ان يستاجر سيارة وفي شروط الايجار ان يكون قد بلغ 20 سنة
عند ملا البيانات ما هو كود التحقق من عمر الزبون في datetimepicker فى sql server كود vb.net
اي اذا كان لم يبلغ سن 20 تاتيني رسالة تنبيه
السلام عليكم و رحمة الله و بركاته
كمحاولة أخي الكريم .. يمكن بهذه الطريقة بشكل عام ..
الكود يحتوي كذلك على التحقق من رخصة السياقة الأقل من عامين حسب ما هو معمول به
طبعا هناك طرق أخرى دقيقة لحساب العمر حسب تاريخ الميلاد
كود :
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
With ComboBox1
.Items.Add("رخصة السياقة")
.Items.Add("بطاقة.ت.الوطنية")
.Items.Add("جواز السّفر")
End With
End Sub
Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
If DateTimePicker2.Value > Today Then
DateTimePicker2.Value = Today
TextBox1.Text = vbNullString
MsgBox("لا يمكن أن يكون تاريخ إصدار الوثيقة أكبر من التاريخ الحالي ... فضلاً أدخل قيمة منطقية معبّرة عن تاريخ صحيح")
Exit Sub
DateTimePicker2.Focus()
DateTimePicker2.Select()
ElseIf ComboBox1.Text = "رخصة السياقة" And (Date.Now.Year - DateTimePicker2.Value.Year) < 2 Then
MsgBox("غير مصرّح لك باستعمال رخصة السياقة أقل من عامين من تاريخ إصدارها")
Exit Sub
TextBox1.Text = vbNullString
DateTimePicker2.Focus()
DateTimePicker2.Select()
Else
TextBox1.Text = DateTimePicker2.Text
End If
End Sub
Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
If Date.Now.Year - DateTimePicker1.Value.Year < 20 Then
MsgBox("لا يمكن إستكمال عقد الكراء .. يجب أن يكون العمر فوق العشرين عاما")
Exit Sub
DateTimePicker1.Focus()
DateTimePicker1.Select()
End If
End Sub
End Class
تحياتي
السلام عليكم اخي الكريم
بفضلك توصلت الى نتيجة
شكرا شكرا شكرا