ماالكودالذي على فترة من التاريخ

الاخوة الاعزاء

ارجو التكرم بالرد

ارجو الرد

لأحتياجي الشديد لها

ارجو الرد لو سمحتم

مافيش احد يرد على

لو كنت مكانك لبحثت عن كلمة ( تاريخ ) و وجدت الكثير من الأمثلة ؟

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

مثال من موقع www.vb4arab.com

لعمل ذلك يجب تحويل التاريخ الى قيمة مطلقة بواسطة الدالة DateValue

مثال

Code:

--------------------------------------------------------------------------------

a = "02/12/2001"

b = "21/01/1966"

C = DateValue(a) - DateValue(B)

Print C

--------------------------------------------------------------------------------

حيث يرجع المتغير C بعدد الايام

http://www.vb4arab.com/vb/showthread.php?s...%CA%C7%D1%ED%CE

لم أفهم ماذ تقد بالتحديد ولكن أعتقد بأن هذا الكود يساعدك

If Not IsDate(MaskEdBox1.Text) Then

MsgBox "الرجاء إدخال التاريخ الأول ", 60, " عفوأ"

MaskEdBox1.SetFocus

Exit Sub

End If

If Not IsDate(MaskEdBox2.Text) Then

MsgBox "الرجاء إدخال التاريخ الثاني ", 60, " عفوأ"

MaskEdBox2.SetFocus

Exit Sub

End If

CrystalReport1.ReportFileName = "C:Kaledreportwew3.rpt"

CrystalReport1.SelectionFormula = "{tabal1.Date} >= date(" & Format(MaskEdBox1.Text, "yyyy,mm,dd") & ") And {tabal1.Date} <= date(" & Format(MaskEdBox2.Text, "yyyy,mm,dd") & ")"

CrystalReport1.Action = 0