منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
عند فتح الفورم يتم تلقائيا البحث عن تاريخ اليوم في قاعدة أكسس و تخميل البيانات غلى الفورم
أستعمل هذا الكود

كود :

On Error Resume Next

        Application.DoEvents()

        Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM Tab WHERE Data LIKE '" & DateTimePicker1.Text.Trim & "'", con)

        'Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM Tab WHERE month(Tab.Nom)= DateTimePicker1.customformat="dd" and day((Tab.Nom)= DateTimePicker1.customformat="MM"& "'",con)

        con.Open()

        DataSet1.Clear()

        DataAdapter.Fill(DataSet1, "Tab")

        con.Close()

كيف يكمن تعيير هذا الكود بخيث يبحث عن تاريخ اليوم انطلاقا من اليوم و الشهر فقط دون النظر الى السنة . بحيث ان كان التاريخ
01/01/2014 او 01/01/2099 فانه يظهر نفس البيانات
مع الشكر مسبقا

الرجاء المساعدة

السلام عليكم ورحمة الله

استخدم المقارنة بعد عمل Format لتحديد أجزاء من التاريخ، وإن شاء الله تمام

هذين السطرين مع بعض للبحث باليوم والشهر بغض النظر عن السنة زي ما قلت في سؤالك

PHP كود :

Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM [Tab] WHERE Format([Data], 'dd/MM') = Format(@d, 'dd/MM')", con)
DataAdapter.SelectCommand.Parameters.AddWithValue("@d", Me.DateTimePicker1.Value.Date) 

أشكرك أخي الوليد شكرا جزيلا
الكود يعمل كما أحب.
جازاك الله الف الف خيرا.

السلام عليكم
السيد farhat
ممكن المثال للإستفادة العامة لمعرفة كيفية التطبيق .
و شكراً

ُالسلام عليكم
فكرة البرنامج
بدأت الفكرة منذ ستة اشهر تقريبا. المسألة ان المسلمين في فرنسا يستعملون الساعات الحائطية
الموجودة في الاسواق لتحديد اوقات الاذان في المساجد والى حد هذا اليوم لم نجد ساعة تحمل اوقات صحيحة . و المشكلة انه يجب ان يتم تعديلها تقريبا كل يوم حتى تتوافق مع
الاوقات المعمول بها.
عرض البرنامج
يتم تخزين البيانات في قاعدة اكسس ثم عرضها في فورم فيجوال بيسك على شاشة تلفزة كبيلاة نوعا ما.
الهدف الاكبر من كل هذا هو ان يعمل البرنامج بصفة الية دون تدخل بشري الا عند الضرورة.
في الواقع لست خبيرا بالبرمجة.كل ماتعلمته هو تعليم من الانترنت او الكتب.
وصل البرنامج الى 70% من الانجازبقيت بعض التعديلات و الاضافات.
لست اربد ربح المال منه فقط خدمة الاسلام و المسلمين في فرنسا.
سوف اعرض ما تبقى منه عليكم لتساعدونني على اتمامه.
وحينما يتم سوف اضعه على الموقع حتى يستفيد الجميع ان شاء الله.
واشكر كل من يستطيع مساعدتي على اتمامه.
سوالي اليوم: كيف يمكنني حساب عدد الايام التي تبقت لرمضان القادم انطلاقا من تاريخ اليوم الهجري?

السلام عليكم ورحمة الله

الله يوفقكم ويعينكم على فعل الخير................

لمعرفة "عدد الايام التي تبقت لرمضان القادم انطلاقا من تاريخ اليوم الهجري"

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    MsgBox(daysToRamadan)
End Sub

' دالة تعيد عدد الأيام المتبقية إلى رمضان القادم '
Public Function daysToRamadan() As Integer
    Dim hijri As New Globalization.HijriCalendar
    Dim dateRamadan As Date = New Date(hijri.GetYear(Now), 9, 1, hijri)
    If Now > dateRamadan Then dateRamadan = New Date(hijri.GetYear(Now) + 1, 9, 1, hijri)
    Return DateDiff(DateInterval.Day, Now, dateRamadan)
End Function 

الشكر لك مرة اخرى أخي الوليد

لمعرفة "عدد الايام التي تبقت لرمضان القادم انطلاقا من تاريخ اليوم الهجري"

نلاحظ عدم تغير عدد الايام عند التحويل الى التاريخ الهجري سوأً زياده او نقصان هل ممن التوضيح ولكم جزيل الشكر

ايضاً جربت بالكود المدرج كم المتبقي وطلع انه باقي لرمضان من تاريخ اليوم السبت 28 جماد اول 1438 متبقي 89 يوماً ، والاصل والصح هو 92 يوماً بحسب تقويم ام القرى .

ارجو المساعده في الحصول على الكود المناسب ولكم الشكر جميعاً .

السلام عليكم

هذا الكود استخدم التقويم الهجري HijriCalendar إذا أردت تغييره إلى تقويم أم القرى UmAlQuraCalendar

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

farhat

farhat

الوليد ☺

farhat

benomar

farhat

الوليد ☺

farhat

محمد مسافر

مساعدة