تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ما هو كود التحقق من العمر
#1
السلام عليكم
فرضا عندي زبون واراد ان يستاجر سيارة  وفي شروط الايجار ان يكون  قد بلغ 20 سنة
عند ملا البيانات ما هو كود التحقق من عمر الزبون في datetimepicker فى sql server كود vb.net
اي اذا كان لم يبلغ سن 20 تاتيني رسالة تنبيه
الرد
تم الشكر بواسطة:
#2
السلام عليكم و رحمة الله و بركاته
كمحاولة أخي الكريم .. يمكن بهذه الطريقة بشكل عام ..
الكود يحتوي كذلك على التحقق من رخصة السياقة الأقل من عامين حسب ما هو معمول به
طبعا هناك طرق أخرى دقيقة لحساب العمر حسب تاريخ الميلاد
كود :
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

تحياتي
الرد
تم الشكر بواسطة: عمور2016 , ابو روضة , fay_gh , اسامه الهرماوي
#3
السلام عليكم اخي الكريم
بفضلك توصلت الى نتيجة
شكرا شكرا شكرا
الرد
تم الشكر بواسطة: عبد العزيز البسكري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  السلام عليكم سؤال في التحقق من المتغييرات اليوم السابع 3 337 19-02-21, 11:38 PM
آخر رد: اليوم السابع
  [سؤال] كود التحقق من شئ حسن الجلب 5 305 29-01-21, 03:49 AM
آخر رد: cofie
  update العمر حافظ حافظ 3 916 25-12-20, 09:07 PM
آخر رد: muaamar
  التحقق من فورم إذا كان موجود محمد خيري 6 707 02-10-20, 03:55 AM
آخر رد: عبد العزيز البسكري
Heart [سؤال] السلام علام مطلوب طريقة التحقق من كول الكلمة المتكرار في اليسة بوكس وضعها في التيكس ب Ali 2020 0 600 01-10-20, 12:38 AM
آخر رد: Ali 2020
  [سؤال] طريقة التحقق هل انا وقف علي اخر سطر في اليسة بوكس Ali 2020 1 474 10-09-20, 07:22 AM
آخر رد: diggitalk2017@gmail.com
  [سؤال] كيفيه التحقق إذا كانت الليست بوكس متصله بقاعدة بيانات منه 2 518 30-08-20, 12:39 AM
آخر رد: diggitalk2017@gmail.com
  التحقق من الرقم في الملف النصي alshandodi 2 606 10-04-20, 10:50 PM
آخر رد: alshandodi
  ما طريقة التحقق من تثبيتRun time new_programer 4 749 08-04-20, 07:06 PM
آخر رد: asemshahen5
  كود التحقق من اتصال الكاميرا samira20 2 846 11-12-19, 12:35 PM
آخر رد: علي بنيان

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم