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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التحقق من خلال محتوى خلية عن طريق textbox صالح عبدالله 2 222 24-01-24, 12:54 PM
آخر رد: صالح عبدالله
  التحقق من معطيات قبل تشغيل البرنامج ابو محمد محمد محمد 3 509 30-04-23, 11:03 PM
آخر رد: عبدالله الدوسري
  [مثال] كيفيه التحقق من البريد الالكتروني حسن الجلب 7 970 05-08-22, 11:36 PM
آخر رد: سعود
  [سؤال] كود التحقق من لغه الادخال فيجوال بيسك حسن الجلب 3 770 22-07-22, 09:13 PM
آخر رد: حسن الجلب
  التحقق من تنفيذ عمليتان في نفس الوقت أو إلغائهما معتز حسن 7 1,210 17-07-22, 12:48 AM
آخر رد: معتز حسن
  [سؤال] كيفيه حساب العمر حسن الجلب 5 1,489 08-05-22, 11:37 AM
آخر رد: سعود
  التحقق من المصفوفة Mtaktak 3 1,016 28-04-22, 08:21 AM
آخر رد: Mtaktak
  [سؤال] كيفيه التحقق من الجدول بقاعدة البيانات حسن الجلب 2 1,192 28-03-22, 04:59 AM
آخر رد: Taha Okla
  [VB.NET] اريد مساعدة في كود التحقق من البيانات في قاعدة اكسس Safwan_Daw 2 1,261 22-03-22, 12:39 AM
آخر رد: Safwan_Daw
  [سؤال] كيفيه التحقق من الأرقام حسن الجلب 3 1,096 15-01-22, 06:25 PM
آخر رد: سعود

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


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