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

جرب الجملة التالية وابلغني بالنتيجة

where DateDiff("d", date(), date_e) < 30

شكرا لك وجزاك الله خيرا .... ولكن "d" عبارة عن ماذا وDateDiff

أريد توضيح للـ where

ياليت اللي يمر عالموضوع ويعرف الاجابة مايبخل علينا فيها ............. والاجر من الله إن شاء الله

للرفع

D عبارة عن حساب بعدد الايام و M عبارة عن حساب بعدد الشهور و Y عبارة عن حساب بعدد السنين

اخي العزيز اليك شرح الدالة بالتفصيل

عرف متغير بأي اسم كما يلي

dim xtime as integer

قم بكتابة الكود التالي لحساب الفرق

xtime = DateDiff("m", date(), date_e)

الان لدينا في المتغير xtime الفرق بين تاريخ إنتهاء العقد وتاريخ اليوم والسؤال هنا xtime يحتوي على الفرق بأي شكل

في هذه الحالة xtime يحتوي على الفرق كعدد ايام يعني 20 يوم أو 25 يوم وذلك لاننا استخدمن حرف ال d في الدالة

ولذلك لو اردنا ان يكون الفرق ليس بالايام بمعنى ان يحتوي xtime على الفرق بالشهور فنكتب نفس الدالة ولكن نستبدل d بـ m كما يلي

xtime = DateDiff("d", date(), date_e)

و لو اردنا ان يكون الفرق ليس بالايام بمعنى ان يحتوي xtime على الفرق بالاعوام فنكتب نفس الدالة ولكن نستبدل d بـ Y كما يلي

xtime = DateDiff("Y", date(), date_e)

ارجو ان اكون افادتك وانا على استعداد تام لأي سؤال لمساعدتك في مشروعك وبالنجاح إن شاء الله

:)

معذرة يوجد خطأ بالاكواد

وجود d في الدالة يعنى ان الفرق سنحصل عليه ايام

وجود m في الدالة يعنى ان الفرق سنحصل عليه شهور

الأخ الفاضل ...

ممكن أن يفيدك هذا الكود

SELECT * FROM emp
Where date_e > CDate(Text1.Text) - 30

وشكراً

هل الكود يكتب بهذه الطريقه

وهل أحتاج الى ادخال تاريخ اليوم عن طريق text

Private Sub Command1_Click()
Dim xtime As Integer
Dim Str As String
xtime = DateDiff("d", Date, date_e)
Str = " select * from employee"
Where DateDiff("d", Date, date_e) < 30
End Sub

أرجوا التصحيح على الكود للانه فيه خطأ

Eng. Usama El-Mokadem كتب:

الأخ الفاضل ...

ممكن أن يفيدك هذا الكود

SELECT * FROM emp
Where date_e > CDate(Text1.Text) - 30

وشكراً

شكرا لمساعدتك وسيتم تجربة الكود

للاسف يظهر لي نفس الخطـأ

" sub function not defined "

اكتب الكود بهذه الطريقة

Private Sub Command1_Click()
Dim xtime As Integer
Dim Str As String
xtime = DateDiff("d", Date, date_e)
Str = " select * from employee"
Where xtime  < 30
End Sub

وسيعمل معك إن شاء الله

عذرا على إزعاجك

ولكن عندي سؤال

هذا الكود لايحتاج إلى إدخال بـtext

وإذا كان يحتاج أين text بالكود ؟؟

السؤال غير واضح ولكن حسب ما فهمت انك تريد ادخال تاريخ عن طريق text ولا يوجد مشكلة عدل في الكود كالتالي

Private Sub Command1_Click()
Dim xtime As Integer
Dim Str As String
dim xdate ad date

xdate = text1.text

xtime = DateDiff("d", Date, xdate )
Str = " select * from employee"
Where xtime  < 30

End Sub

ولا يوجد اي انزعاج فلا تتردد في السؤال

الاخ الكريم / blackboxer

ألف شكر لك على تعاونك وجزاك الله خير

وأكثر الله من امثالك

وبالتوفيق يارب