منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] البخث فقط عن اليوم و الشهر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] البخث فقط عن اليوم و الشهر (/showthread.php?tid=10833)

البخث فقط عن اليوم و الشهر - farhat - 01-12-14

السلام عليكم
عند فتح الفورم يتم تلقائيا البحث عن تاريخ اليوم  في قاعدة أكسس و تخميل البيانات غلى الفورم
أستعمل هذا الكود 
كود :
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 فانه يظهر نفس البيانات 
مع الشكر مسبقا

RE: البخث فقط عن اليوم و الشهر - farhat - 02-12-14

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

RE: البخث فقط عن اليوم و الشهر - الوليد ☺ - 02-12-14


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

استخدم المقارنة بعد عمل 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) 

RE: البخث فقط عن اليوم و الشهر - farhat - 02-12-14

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

RE: البخث فقط عن اليوم و الشهر - benomar - 02-12-14

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

RE: البخث فقط عن اليوم و الشهر - farhat - 02-12-14

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

RE: البخث فقط عن اليوم و الشهر - الوليد ☺ - 03-12-14


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

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

لمعرفة "عدد الايام التي تبقت لرمضان القادم انطلاقا من تاريخ اليوم الهجري"
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 

RE: البخث فقط عن اليوم و الشهر - farhat - 03-12-14

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

RE: البخث فقط عن اليوم و الشهر - محمد مسافر - 25-02-17

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

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

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

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

RE: البخث فقط عن اليوم و الشهر - مساعدة - 25-02-17

السلام عليكم

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