نحوه یادآوری تاریخ خاص

[hosein3000]

با سلام خدمت تمامی مهندسان گرامی
من می خوام برنامه ای برای ثبت نتایج بتن بنویسم (سورسشو ضمیمه کردم) می خوام یه قسمت گزارش گیری بذارم که دارای چهار گزینه باشه
گزینه اول 7 روزه ، گزینه دوم 14 روزه ،گزینه سوم 28 روزه و گزینه چهارم 90 روزه و وقتی کاربر از روزی که نتایج رو ثبت می کنه وقتی گزینه 7 روزه رو بزنه اگه از تاریخ ثبت اون 7 روز گذشته باشه نشون داده بشه و چاپ کنه و بقیه گزینه ها هم همینطور
ولی هر کاری کردم نتونستم انجام بدم از دوستان عزیز کسی می تونه این گزینه رو به برنامه من اضافه کنه؟
بی نهایت ممنون میشم اگه اینکارو برام انجام بدین

[helpsos]

سلام
اینکه من بیام برات این گزینه را درست کنم مثل اینه که من بهت یه ماهی بدم.
ولی من اینکار را نمی کنم و میام و ماهی گیری را یادت میدم.
شما با استفاده از dll ضمیمه زیر می توانید اختلاف دو تاریخ را به دست آورید و اگه 7 روز بود آنوقت کارای لازم را بکن ok
راستی اول از refrense باید اون را به پروژت اضافه کنی

[hosein3000]

با تشکر از لطف شما دوست عزیز ولی متاسفانه نتونستم
چون من برنامه نویس حرفه ای نیستم نتونستم انجامش بدم
:گریه:

[helpsos]

سلام
شکسته نفسی نفرمائید.
ماها ایرانی هستیم و چیزی به اسم نتونستم نداریم
یکم سعی کنید خیلی راحت میشه
تازه این dll خیلی امکانات فوق العاده ای داره

[m.4.r.m]

از این کد استفاده کن کارش همینه فقط شما جای فیلد های هارو عوض می کنی .


Private Sub ComboBox1_Click()
Select Case ComboBox1.ListIndex

Case 0:
datestr = J_SUBDAY(J_TODAY(1), 1, 1)
t = "paziresh.pdate<'" & J_TODAY(1) & "' AND paziresh.pdate>='" & datestr & "'"
Case 1:
datestr = J_TODAY(1)
t = "Pdate='" & datestr & "'"
Case 2:
datestr = J_SUBDAY(J_TODAY(1), 3, 1) ' 3 roze
t = "pDate<'" & J_TODAY(1) & "' AND pDate>='" & datestr & "'"
Case 3:
datestr = J_SUBDAY(J_TODAY(1), 7, 1) ' 7 roze
t = "pDate<'" & J_TODAY(1) & "' AND pDate>='" & datestr & "'"
Case 4:
datestr = J_SUBDAY(J_TODAY(1), 30, 1) ' 30 roze
t = "pDate<'" & J_TODAY(1) & "' AND pDate>='" & datestr & "'"
Case 5:
datestr = J_SUBDAY(J_TODAY(1), 90, 1) ' 90 roze
t = "pDate<'" & J_TODAY(1) & "' AND pDate>='" & datestr & "'"
Case 6:
datestr = J_SUBDAY(J_TODAY(1), 180, 1) ' 180 roze
t = "pDate<'" & J_TODAY(1) & "' AND pDate>='" & datestr & "'"
Case 7:
datestr = J_SUBDAY(J_TODAY(1), 360, 1) ' 1 sale
t = "pDate<'" & J_TODAY(1) & "' AND pDate>='" & datestr & "'"
End Select

If RadioButton1.Value = True Then
Adodc1.RecordSource = "Select Bimar.BimarID,Bimar.Bname,Bimar.Bfamily,Paziresh.P azireshId,Paziresh.Pdate,Paziresh.ptime,Paziresh.p darman,Paziresh.pbayane,Paziresh.pprice,Paziresh.p status From Bimar,Paziresh Where Paziresh.Pstatus=True And Paziresh.BimarId = Bimar.BimarId And " & t
Adodc1.Refresh
Adodc1.Recordset.Sort = "Pdate"
Set VSFlexGrid1.DataSource = Adodc1
Else
Adodc1.RecordSource = "Select Bimar.BimarID,Bimar.Bname,Bimar.Bfamily,Paziresh.P azireshId,Paziresh.Pdate,Paziresh.ptime,Paziresh.p darman,Paziresh.pbayane,Paziresh.pprice,Paziresh.p status From Bimar,Paziresh Where Paziresh.Pstatus=false And Paziresh.BimarId = Bimar.BimarId And " & t
Adodc1.Refresh
Adodc1.Recordset.Sort = "Pdate"
Set VSFlexGrid1.DataSource = Adodc1
End If


اینم تو فرم لود بزار :

ComboBox1.AddItem "ديروز"
ComboBox1.AddItem "امروز"
ComboBox1.AddItem "سه روز قبل"
ComboBox1.AddItem "يک هفته قبل"
ComboBox1.AddItem "يک ماه قبل"
ComboBox1.AddItem "سه ماه قبل"
ComboBox1.AddItem "شش ماه قبل"
ComboBox1.AddItem "يک سال قبل"


ماژولها رو هم به برنامت اضافه کن

[رامین مرادی]

بعد اين كارا هر بار كه برنامت باز ميشه برو تاريخ ها رو لود كن و با ما‍ژول بالا چك كن كه مثلا 7 روز گذشته بعد اگه برابر بود كارت رو انجام بده به همين سادگي كافيست فكر كنيد.

[hosein3000]

متاسفانه بازم نتونستم انجامش بدم :گریه:

[tabrizsan]

خیلی خوب بود