Comments on: Calculate Working Hours in VBA

By: JP

JP — Thu, 28 Jan 2010 23:19:46 +0000

You can retrieve default start and end time from the registry. Check out the following registry key:

HKCU\Software\Microsoft\Office\11.0\Outlook\Options\Calendar

Of course, you'll change 11.0 to reflect your version number (Outlook 2003 is 11.0, 2007 is 12.0 and so on).

Look for the DWORD values "CalDefStart" and "CalDefEnd"

The challenge will be to interpret the DWORD values into something meaningful. You'll need to adjust the values and see how the DWORD values change, to make some kind of conversion algorithm.

By: Jon

Jon — Wed, 27 Jan 2010 16:42:37 +0000

Thanks! Would be so cool to be able to do! I'm still searching too, will post here to update if I find a way before I hear back.

By: JP

JP — Wed, 27 Jan 2010 12:09:32 +0000

I'll check it out.

By: Jon

Jon — Wed, 27 Jan 2010 07:02:19 +0000

It is possible to enter your normal Working Hours in Outlook, in the general Calendar settings (at least in the new 2010 version, but I think in 2007 also). Is there a way to read this schedule from Outlook VBA in order to automatically determine the normal working hours as specified there, without having to manually specify what they are?

By: Whitney

Whitney — Thu, 29 Oct 2009 15:37:12 +0000

Hi,

Can this formula be modified to calculate a work day of 8:00am until 5:00pm excluding lunch time from 12:00pm to 1:00pm?

Thanks,
Whitney

By: Praba

Praba — Thu, 25 Jun 2009 06:08:09 +0000

Hi,

I hv 1 minor issue.Need to calculate the value for 2 date

Start Date: 5/31/2009 13:30
End Date: 6/1/2009 18:01
i require the result in HH:MM
this is to calculate the working hours
exceeding 24 hours or less

seek yr support

Thanks in advance

By: JP

JP — Fri, 03 Apr 2009 21:53:16 +0000

I think you should use the new version of this function. I rewrote it so you don't need to reference any libraries, and it's more accurate. Here's a link: Time Difference Testing

By: Cynthia

Cynthia — Fri, 03 Apr 2009 18:47:06 +0000

HI Again,

I figured out how to get the results in the appropriate cells; this being said, I am now getting the infamous #VALUE result. I am working with Excel 2007. I went to the Office Button, clicked on the Excel Options button, went to Add-Ins, and selected the Analysis tool Pak VBA, which now shows as an Active Application Add-In. I then went into the VBE, and went to Tools>References> and checked beside atpvbaen.xls. My code is in the same workbook as my formula. Help! Here is my code:

Private Function TimeDiff(StartTime As Variant, EndTime As Variant) As Variant
'
' calculates time different between two dates/times provided as arguments
' i.e. "1/1/2008 12:00 AM" and "1/13/2008 10:33 AM"
'
' based on 8 hour workday, excluding holidays and weekends and non-working hours
'
Dim StartDate As Date
Dim EndDate As Date
Dim ModStartTime As Date
Dim ModEndTime As Date
Dim DaysWorked As Long
Dim HolidaysList()

Const HoursPerDay As Integer = 24

' 24-hour military time, edit as needed
' if you want to set different working hours
Const ComeIn As Date = "9:00"
Const Leave As Date = "17:00"

' list of federal holidays in 2009
' add or remove as you see fit
' you will need to add additional year's holidays as well
' remove ones you aren't using
HolidaysList = Array("10/13/2008", "11/11/2008", "11/27/2008", "12/25/2008", "1/1/2009", "1/19/2009", "2/16/2009", "5/25/2009", "7/4/2009", "9/7/2009", "10/12/2009", "11/11'2009", "11/26/2009", "12/25/2009")
'October 13, 2008
'November 11, 2008
'November 27, 2008
'December 25, 2008
'January 1, 2009
'January 19, 2009
'February 16, 2009
'May 25, 2009
'July 4, 2009
'September 7, 2009
'October 12, 2009
'November 11, 2009
'November 26, 2009
'December 25, 2009

StartDate = Int(StartTime)
EndDate = Int(EndTime)

' http://www.bygsoftware.com/issues/modbug.html
ModStartTime = StartTime - 1 * Int(StartTime / 1)
ModEndTime = EndTime - 1 * Int(EndTime / 1)

If (EndDate - StartDate) < 1 Then
' it's the same day, just calculate simple hours diff
TimeDiff = Format(HoursPerDay * (ModEndTime - ModStartTime), "####.####")
Else
' adapted from http://www.ozgrid.com/News/apr-2008.htm
TimeDiff = (NetworkDays(StartDate, EndDate, HolidaysList) - 1) * (HoursPerDay * (Leave - ComeIn)) - _
(HoursPerDay * (Leave - ModEndTime)) - (HoursPerDay * (ModStartTime - ComeIn))
End If

End Function
End Function

By: JP

JP — Fri, 03 Apr 2009 18:42:57 +0000

Cynthia,
Assuming your values were placed in A1, B1 and C1:

Column D would be
=TimeDiff(A1,B1)
Column E would be
=TimeDiff(B1,C1)
Column F would be
=TimeDiff(A1,C1)

By: Cynthia

Cynthia — Fri, 03 Apr 2009 15:28:56 +0000

Looking for some help – still very new to VBA. I got the code copied, my start time and open time and holidays all inputted, but not sure what to do next, as it's not a standard macro (as far as I can tell!). I have activated the add-in as well, as you instructed.

I have a date/time in columns A, B, & C. I need to calculate 3 TAT (turnaround time) values:
A to B, B to C, and A to C.

How do I get the values to show up in columns D, E, and F?

This is probably a basic user question, but I would really appreciate any direction you can provide.