Solved

I need a function that could return me the day worked.

Posted on 2008-06-11
2
152 Views
Last Modified: 2010-04-21
Hello guys

I need a function that could return me a quantity of days without weekend, since my first day of the month.

Thanks
0
Comment
Question by:hidrau
2 Comments
 
LVL 26

Accepted Solution

by:
Russell Libby earned 500 total points
ID: 21763859
Give this a try, I believe it is pretty well tested. I wasn't sure if you were counting today in the result, or not (eg, if you consider today-yesterday = 2 days, or 1 day), so the function allows you to specify that.

As to the function, it determines how many weeks (full 7 days) have passed. That part is easy, because 7 days = 5. The remainer needs to be figured out based on day of the week that that the StartDate falls. (determine if the day count wraps into a weekend).

Regards,
Russell

----


function DaysWorkedSince(StartDate: TDateTime; IncludeToday: Boolean = False): Integer;
var  dwDay:         Integer;
     dwTotal:       Integer;
     dwWeeks:       Integer;
     dwDays:        Integer;
begin

  // Get the day of week for the starting day (0 = Sunday and 6 = Saturday)
  dwDay:=DateTimeToTimeStamp(StartDate).Date mod 7;

  // Subtract today and start date
  dwTotal:=Trunc(Now - StartDate);

  // Update by 1 if today should be included
  if IncludeToday then Inc(dwTotal);

  // Calculate the number of total weeks and remainder days
  dwWeeks:=dwTotal div 7;
  dwDays:=dwTotal mod 7;

  // Weeks = 5 working days
  result:=dwWeeks * 5;

  // Check remainder days
  if (dwDays > 0) then
  begin
     // Now figure in the days based on the starting date
     case dwDay of
        0  :  Dec(dwDays);
        1  :  if (dwDays > 5) then dwDays:=5;
        2  :  if (dwDays > 4) then dwDays:=4;
        3  :
        begin
           if (dwDays = 6) then
              dwDays:=4
           else if (dwDays > 3) then
              dwDays:=3;
        end;
        4  :
        begin
           if (dwDays > 3) then
              Dec(dwDays, 2)
           else if (dwDays = 3) then
              dwDays:=2;
        end;
        5  :
        begin
           if (dwDays > 2) then
              Dec(dwDays, 2)
           else if (dwDays = 2) then
              dwDays:=1;
        end;
        6  :
        begin
           if (dwDays > 2) then
              Dec(dwDays, 2)
           else
              dwDays:=0;
        end;
     end;
     // Update result
     Inc(result, dwDays);
  end;

end;

  ShowMessage(IntToStr(DaysWorkedSince(StrToDate('5/1/2008'), True)));
0
 
LVL 1

Author Closing Comment

by:hidrau
ID: 31466282
thanks

I tested and it is working.
If I have any problem I'll let you know
0

Featured Post

Are your AD admin tools letting you down?

Managing Active Directory can get complicated.  Often, the native tools for managing AD are just not up to the task.  The largest Active Directory installations in the world have relied on one tool to manage their day-to-day administration tasks: Hyena. Start your trial today.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Simple Delphi Question 9 90
select query - oracle 16 100
When i run adoquery my application freezes 26 166
Delphi and Access based Enumeration 9 64
Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…

821 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question