تقييم الموضوع :
  • 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
السلام عليكم اخي الكريم
بفضلك توصلت الى نتيجة
شكرا شكرا شكرا
الرد
تم الشكر بواسطة: عبد العزيز البسكري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التحقق من فورم إذا كان موجود محمد خيري 6 249 02-10-20, 03:55 AM
آخر رد: عبد العزيز البسكري
Heart [سؤال] السلام علام مطلوب طريقة التحقق من كول الكلمة المتكرار في اليسة بوكس وضعها في التيكس ب Ali 2020 0 179 01-10-20, 12:38 AM
آخر رد: Ali 2020
  [سؤال] طريقة التحقق هل انا وقف علي اخر سطر في اليسة بوكس Ali 2020 1 176 10-09-20, 07:22 AM
آخر رد: diggitalk2017@gmail.com
  [سؤال] كيفيه التحقق إذا كانت الليست بوكس متصله بقاعدة بيانات منه 2 209 30-08-20, 12:39 AM
آخر رد: diggitalk2017@gmail.com
  التحقق من الرقم في الملف النصي alshandodi 2 362 10-04-20, 10:50 PM
آخر رد: alshandodi
  ما طريقة التحقق من تثبيتRun time new_programer 4 451 08-04-20, 07:06 PM
آخر رد: asemshahen5
  كود التحقق من اتصال الكاميرا samira20 2 520 11-12-19, 12:35 PM
آخر رد: علي بنيان
  كيف يمكن التحقق من وجود اسم موظف بقاعدة بيانات الحضور وسام عبدالله الدمرداش 4 1,323 28-09-19, 08:39 PM
آخر رد: alessam4pro
  حساب العمر سعيد المهر 28 2,602 19-08-19, 02:11 AM
آخر رد: ابراهيم ايبو
  [VB.NET] تلوين الخلية بناءً على معيار العمر اسامه الهرماوي 8 1,027 15-04-19, 08:32 PM
آخر رد: اسامه الهرماوي

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


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