تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] رساله عند تعارض تاريخين ؟
#1
السلام عليكم ورحمة الله وبركاتة

اخواني الافاضل انا الان لدي مشكلة لا اعرف كيف احلها

انا الان املك فترتين زمنيتين ،، لكل فتره عدد 2 تيكست بوكس لادخال التاريخ

الفترة الاول لها تاريخ بداية وتاريخ نهاية

والفترة الثانية لها تاريخ بداية وتاريخ نهاية


لنفترض انني وضعت الفترة الاولى هذين التاريخين
البداية 15/9/2013 والنهاية 20/9/2013

و الفترة الثانية كانت كذلك
البداية 19/9/2013 والنهاية 30/9/2013


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


ياريت لو تساعدوني فى تطبيق الكود
الرد }}}
تم الشكر بواسطة:
#2
ماهي المشكلة لو كل فترة بمثابة عمود في جدول؟
يعني جدول مثلا باسم tbl_first_time يحتوي عمودين :البداية والنهاية
وكذلك بالنسبة للجدول الاخر...اعتذر لو اني فهمت خطا.
الرد }}}
تم الشكر بواسطة: Mido9
#3
(25-10-13, 09:46 AM)سعود كتب : ماهي المشكلة لو كل فترة بمثابة عمود في جدول؟
يعني جدول مثلا باسم tbl_first_time يحتوي عمودين :البداية والنهاية
وكذلك بالنسبة للجدول الاخر...اعتذر لو اني فهمت خطا.


ربنا يكرمك على محاولتك لمساعدتي شكرا لك

بصراحة لم افهم كيف سأستطيع التحقق من تعارض التواريخ لو وضعت كل تاريخ فى عمود



انا سأشرح لك الفكره مره اخرى

الان انا لدي قاعدة بيانات اسجل فيها دورات الموظفين

بمعنى الاخ سعود سيحصل على دوره شبكات خلال الفتره من 5/9/2013 حتى 29/9/2013

الان اريد ان ارشحك لدورة اخرى ،، فأريد ان يظهر رساله لو كانت تتعارض مع الدورة الاخرى

يعني مثلاً لو هارشحك هذه لدورة برمجة فى الفترة من 25/9/2013 حتى 10/10/2013

ستجد ان التواريخ تعارضت و الان انت ستحضر دورتين فى نفس الفترة لانه تم التعارض فى الايام التاليه (25/26/27/28/29) بين الدورتين


إن شاء الله تكون وضحت الفكره اكتر

وشاكر لك مساعدتك
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم
1- ضع أداتي مربع نص
2- ضع أداة زر
3- ثم قم بإضافة هذا الكود:

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim New_Date(3) As Date
        TextBox1.Text = "البداية 15/9/2013 والنهاية 20/9/2013"
        Dim Reg As MatchCollection = Regex.Matches(TextBox1.Text, "\d{1,2}/\d{1,2}/\d{4}")
        For I As Integer = 0 To Reg.Count - 1
            Dim SpliDate As String() = Reg.Item(I).Value.Split("/")
            New_Date(I) = New Date(Val(SpliDate(2)), Val(SpliDate(1)), Val(SpliDate(0)), New System.Globalization.GregorianCalendar)
        Next
        TextBox2.Text = "البداية 19/9/2013 والنهاية 30/9/2013"
        Reg = Regex.Matches(TextBox2.Text, "\d{1,2}/\d{1,2}/\d{4}")
        For I As Integer = 0 To Reg.Count - 1
            Dim SpliDate As String() = Reg.Item(I).Value.Split("/")
            New_Date(I + 2) = New Date(Val(SpliDate(2)), Val(SpliDate(1)), Val(SpliDate(0)), New System.Globalization.GregorianCalendar)
        Next
        If New_Date(2) < New_Date(1) Then
            MsgBox("هناك تداخل بين التاريخين ومقداره:" & (New_Date(1) - New_Date(2)).TotalDays)
        End If
    End Sub

بالتوفيق
الرد }}}
تم الشكر بواسطة:
#5
جزاك الله خيرا اخي الفاضل بارك الله فيك

ولكن فى مشكلة
وهي عند وضع الاكواد ظهرت الاخطاء التالية

   


وجزاك الله عنا خيراً

السلام عليكم ,,

تم حل الـ Error بوضع الـ Imports System.Text.RegularExpressions


ولكن لدي إستفسار ..

الان يجب كتابة القيمتين فى التيكست بوكس الاول و القيمتين فى التيكست بوكس الثاني


هل يمكن عمل عدد 4 تيكست بوكس ,, وجعل التيكست بوكس رقم 1 خاص ببداية الفترة الثانية والتيكست بوكس رقم 2 خاص بنهاية الفترة الاولى

والتيكست بوكس رقم 3 لبداية الفترة الثانية و التيكست بوكس رقم 4 يكون لنهاية الفترة الثانية ؟


وجزاكم الله خيرا
الرد }}}
تم الشكر بواسطة:
#6
السلام عليكم...

بالنسبة إلى اختبار التعارض يمكننا إنشاء دالة لهذا الغرض:

كود :
Public Module DateServices
    Public Structure SDateInterval
        Dim StartDate As Date    ' تاريخ بداية الفترة
        Dim EndDate As Date     ' تاريخ نهاية الفترة
    End Structure

    ' دالة الاختبار
    Public Function IntervalConflict(ByVal Period1 As SDateInterval, ByVal Period2 As SDateInterval) As Boolean
        If ((Period1.StartDate >= Period2.StartDate) And (Period1.StartDate <= Period2.EndDate)) Or _
                ((Period1.EndDate >= Period2.StartDate) And (Period1.EndDate <= Period2.EndDate)) Then
            Return True    ' تعارض
        Else
            Return False    ' لا يوجد تعارض
        End If
    End Function
End Module

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Period1 As SDateInterval
        Dim Period2 As SDateInterval

        ' القيم التالية للتجربة - يمكن قراءتها من مربعات نص أو غيرها
        Period1.StartDate = #10/1/2013#
        Period1.EndDate = #10/15/2013#
        Period2.StartDate = #10/13/2013#
        Period2.EndDate = #10/28/2013#

        If IntervalConflict(Period2, Period1) Then
            MsgBox("Conflicts")
        Else
            MsgBox("No conflict")
        End If
    End Sub
End Class

* لا يهم ترتيب الفترتين عند استدعاء الدالة.

بالنسبة إلى طريقة إدخال القيم فإنه يمكنك استعمال مربعات النص أو DateTimePicker.

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}
تم الشكر بواسطة: سعود , Mido9


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكله رساله خطا Omaro 7 96 24-03-24, 03:46 PM
آخر رد: Omaro
  [VB.NET] محتاج كود حساب الفرق بين تاريخين بالايام moustafakamel95 3 449 29-01-24, 04:05 PM
آخر رد: مصطفى مصطفى
  [سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود مبرمج صغير 1 6 402 09-01-24, 01:41 AM
آخر رد: Taha Okla
  الفرق بين تاريخين على أن يظهر الناتج بعدد الاشهر boofa2022 4 261 03-01-24, 11:21 AM
آخر رد: boofa2022
Video SQL مشكلة البحث بين تاريخين waataanys 1 328 02-12-23, 07:54 PM
آخر رد: waataanys
  حساب عدد الشهور بين تاريخين kebboud 4 623 12-04-23, 03:22 PM
آخر رد: kebboud
Exclamation [سؤال] اريد تحميل فيجوال بيسك 2010 وعمل قواعد بيانات داخله لكن عند تنصيبه تظهر رساله؟؟؟؟؟ Tame 0 344 22-03-23, 01:41 AM
آخر رد: Tame
  البحث بين تاريخين kebboud 1 607 20-01-23, 11:39 PM
آخر رد: abu7shihab
Rainbow [كود] مشكله ظهور رساله خطا قابل للتثبيت ISAM تعذر العثور على محمد مسافر 0 586 29-11-22, 03:11 AM
آخر رد: محمد مسافر
Rainbow [كود] رساله خطاء لملف اكسس مرتبط بفيجوال دوت نت. محمد مسافر 5 674 23-11-22, 12:16 PM
آخر رد: Jounior_P

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


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