کد جستجو بین ماههای سال

[ly.comeng]

سلام
من برای نوشتن یک گزارش باید کارکرد ماهانه و یا به طور مثال کارکرد یا حقوق 2 ماه از کارمندان یا از یک ماه تا ماه دیگه رو حساب کنم... اما نمیدونم چطوری؟و چه کدی باید بنویسم؟


ممنون میشم راهنمایی کنین

[morteza_261]

سلام
این کد اختلاف بین 2 تاریخ رو بر حسب ماه بدست میاورد:


Dim d1 As Date = TxtMiladi1.Text
Dim D2 As Date = TxtShamsi2.Text
TextBox1.Text = DateDiff(DateInterval.Month, D1, D2)

[mostafaaa]

اگه منظورت توی دیتا بیس هستش اگه فیلدت از نوع Date/Time باشه به راحتی میتونی با استفاده از اوپراتورهای ">"و"<"و"=" خروجیت رو فیلتر کنی برای مثال

SELECT Factor_ID, Stuff_ID, Stuff_name, Unit, Price, Total_Price
FROM Sale
WHERE (SaleDate >= ?) AND (SaleDate <= ?)
به جای علامت های سوال میتونی تاریخ ها رو بزاری

[reza6384]

WHERE (SaleDate >= ?) AND (SaleDate <= ?)



به جای این از Between می تونی استفاده کنی، راحت تره یه کم. در ضمن می تونی یه جدول داشته باشی که PK اون تاریخ میلادی باشه و فیلدهای اون تاریخ میلادی و تاریخ شمسی باشن. در واقع این جدول برات کار یک کانورتر تقویم رو به سرعت انجام میده. مثلا اگر اسم جدول باشه Persian_Dates



Select * From MyTable As M, Persian_Date As P Where M.MyDateField = P.PersianDate And P.EnglishDate Between 'date1' and 'date2'

[masoodp666]

درود.
قبل از اینکه جوابی داده بشه بهتره که سوال رو یه مقدار واضح تر بگین.
اینکه جداول و فیلدها به چه شکل هستن؟
و اینکه الان شروع کردید یا میخواهید شروع کنید ؟

[ly.comeng]

درود.
قبل از اینکه جوابی داده بشه بهتره که سوال رو یه مقدار واضح تر بگین.
اینکه جداول و فیلدها به چه شکل هستن؟
و اینکه الان شروع کردید یا میخواهید شروع کنید ؟



سلام

من برای یکی از گزارش ها لازم دازم که به طور مثال در گزارش حقوقی لیست مربوط به سال 1386 مربوط به ماه تیر را مثلا نشون بده.
برای این کار در فرمم 3 تا combo و یک button گذاشتم،button پیش نمایش هست که در اون کد زیر رو نوشتم.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click



Dim ds As New DS_report
Dim da As New SqlDataAdapter("select * from view_rpt_karkard_malek where saal=" & cmb_sal.Text & " and mah between " & cmb_mah.SelectedValue & " and " & cmb_mah2.SelectedValue , cn)

da.Fill(ds.tbl_rpt_karkard_malek)


cmb_sal.Text = i
cmb_mah.SelectedValue = i

Try

Dim rpt As ReportDocument = New ReportDocument()
rpt.Load(Application.StartupPath & "\..\..\rpt_karkard_malek.rpt")
rpt.Database.Tables(0).SetDataSource(ds)
CrystalReportViewer1.ReportSource = rpt
Catch ex As Exception

End Try



End Sub


موقعی که اجرا میشه error syntax near key word 'and' l
میده

لطفا راهنمایی کنین