How To Calculate Business Working Days and Hours inside GRIDVIEW

Question

0.00/5 (No votes)

See more:

I Need to Calculate The Following in GridView.
How to calculate SUM Total Number of Target Requests Achieved and Missed for a Group of Departments.

Target Days are predefined in Database and Depending on the Dateandtime IN and OUT Achieved or Missed is Declared...

I Have Table Named :
TblDept - Fields:
DeptID, Dept Name, TargetDays

TblProjects - Fields:
DEPTID, Request No,DateandTimeIN, DateandTimeOUT, Status

i need to calculate:
How many requests achieved target and how many missed
GROUP BY Clause will be used for Department

it is like

DEPARTMENT || ACHIEVED REQUESTS || MISSED REQUESTS || TOTAL REQUESTS
====================================================================
AAA         ||        10        ||       05        ||      15
BBB         ||        08        ||       03        ||      11
CCC         ||        09        ||       10        ||      19
====================================================================
TOTAL       ||        27        ||       18        ||      45

...Anyone ?

Here is my code:

VB

Protected Function BusinessDaysExcludeWeekendsAndHolidays(ByVal StartDate As Date, ByVal StopDate As Date) As Double

con As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=e:\projectManagement\Database.accdb")
con.Open()

Dim SelectStr As String = "Select [Holiday] from Holidays"
Dim dap As OleDbDataAdapter = New OleDbDataAdapter(SelectStr, con)
Dim ds As New DataSet dap.Fill(ds, "x")
Dim ActualDays As Integer
Dim BusinessDays As Integer
Dim NextDate As Date '
Dim x As Double

If StopDate < StartDate Then Return 0
ActualDays = DateDiff(DateInterval.Day, StartDate, StopDate, Microsoft.VisualBasic.FirstDayOfWeek.Sunday, FirstWeekOfYear.Jan1) + 2 
BusinessDays = ActualDays

Dim counter As Integer = 0
For i As Integer = 0 To ActualDays - 1
    NextDate = DateAdd(DateInterval.Day, i, StartDate)
	If NextDate.DayOfWeek = DayOfWeek.Friday Or _ NextDate.DayOfWeek = DayOfWeek.Saturday Then
	    BusinessDays = BusinessDays - 1
	End If
	For counter = counter To ds.Tables("X").Rows.Count - 1
	    If ds.Tables("x").Rows(counter).Item(0) = NextDate Then
		    BusinessDays = BusinessDays - 1
		End If
	Next
	counter = 0
Next
Return BusinessDays
End Function

Posted 29-Sep-12 20:49pm

saqibghulam

Updated 21-Oct-12 5:50am

Maciej Los

v6

Add a Solution

Comments

Sandeep Mewara 30-Sep-12 2:52am

And what have you tried so far?

saqibghulam 30-Sep-12 3:07am

i have made a function using Vb and applied it and it is giving me detailed View of Startdate and EndDate but i need to Segregate it into day and Time Summary.

Function is:
Protected Function BusinessDaysExcludeWeekendsAndHolidays(ByVal StartDate As Date, ByVal StopDate As Date) As Double

con As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=e:\projectManagement\Database.accdb")

con.Open()

Dim SelectStr As String = "Select [Holiday] from Holidays"

Dim dap As OleDbDataAdapter = New OleDbDataAdapter(SelectStr, con)
Dim ds As New DataSet

dap.Fill(ds, "x")

Dim ActualDays As Integer
Dim BusinessDays As Integer
Dim NextDate As Date
' Dim x As Double

If StopDate < StartDate Then Return 0
ActualDays = DateDiff(DateInterval.Day, StartDate, StopDate, Microsoft.VisualBasic.FirstDayOfWeek.Sunday, FirstWeekOfYear.Jan1) + 2
BusinessDays = ActualDays
Dim counter As Integer = 0
For i As Integer = 0 To ActualDays - 1

NextDate = DateAdd(DateInterval.Day, i, StartDate)

If NextDate.DayOfWeek = DayOfWeek.Friday Or _
NextDate.DayOfWeek = DayOfWeek.Saturday Then
BusinessDays = BusinessDays - 1
End If

For counter = counter To ds.Tables("X").Rows.Count - 1
If ds.Tables("x").Rows(counter).Item(0) = NextDate Then
BusinessDays = BusinessDays - 1
End If
Next
counter = 0

Next

Return BusinessDays

End Function

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

solanki.net · Answer 1 · 2012-09-29T22:17:00

Solution 1

if u want to calculate total in grid footer then u will have write the code in row databound event .

can u tell what u want ?

Posted 29-Sep-12 22:17pm

solanki.net

saqibghulam · Answer 2 · 2012-09-29T22:36:00

Getting Total at theFooter is no problem.

I Need to to know THE QUERY or Solution
How to apply this function that it will get me Summary of Each Departments Performance

I need only to know how TOTAL of requests have been Acheived and how many not Achieved

The Gridview I am using right now is as Follows:
Now this is the Detailed Report i need only Summary

<asp:gridview id="GridView1" runat="server" autogeneratecolumns="False" xmlns:asp="#unknown">
BackColor="White" BorderColor="#999999" BorderStyle="None" BorderWidth="1px"
CellPadding="3" CssClass="GridViewStyle" DataSourceID="SqlDataSource1"
GridLines="Vertical" AllowPaging="True" DataKeyNames="ProjectID" PageSize="5">
<rowstyle backcolor="#6699FF" forecolor="Black">
<columns><asp:boundfield datafield="ProjectName" headertext="Topic" sortexpression="ProjectName">
<itemstyle width="50px" wrap="False">

<asp:boundfield datafield="DateRecieved" headertext="Date IN">
SortExpression="DateRecieved" DataFormatString="{0:dd-MM-yyyy}" >
<itemstyle width="50px">

<asp:boundfield datafield="AssignedTo" headertext="Emp Name">
SortExpression="AssignedTo" >
<itemstyle width="50px">

<asp:boundfield datafield="TimeRecieved" headertext="Time IN">
SortExpression="TimeRecieved" >
<itemstyle width="50px">

<asp:boundfield datafield="ApprovalDepartment" headertext="DEPT">
SortExpression="ApprovalDepartment" >
<itemstyle width="50px">

<asp:boundfield datafield="ProjectID" headertext="PID">
InsertVisible="False" ReadOnly="True" SortExpression="ProjectID" >
<itemstyle width="50px">

<asp:boundfield datafield="ProjectApprovedStatus">
HeaderText="Status" SortExpression="ProjectApprovedStatus" >
<itemstyle width="50px">

<asp:boundfield datafield="DateSentForApproval">
DataFormatString="{0:dd-MM-yyyy}" HeaderText="Date OUT"
SortExpression="DateSentForApproval" >
<itemstyle width="50px">

<asp:templatefield headertext="DaysPast">
<itemtemplate>
<%#(Convert.ToDouble(BusinessDaysExcludeWeekendsAndHolidays(Eval("DateRecieved"), Eval("DateSentForApproval"))))%>

<asp:boundfield datafield="TargetDays" headertext="TargetDays">
SortExpression="TargetDays" />
<footerstyle backcolor="#6699FF" forecolor="Black">
<pagerstyle backcolor="#6699FF" forecolor="Black" horizontalalign="Center">
<SelectedRowStyle BackColor="#008A8C" Font-Bold="True" ForeColor="White" />
<HeaderStyle BackColor="#000084" Font-Bold="True" ForeColor="White" />
<alternatingrowstyle backcolor="#DCDCDC">