http://itknowledgeexchange.techtarget.com/itanswers Sat, 25 May 2013 06:08:03 +0000 en-US hourly 1 http://itknowledgeexchange.techtarget.com/itanswers/calculate-business-hours/ http://itknowledgeexchange.techtarget.com/itanswers/calculate-business-hours/#comments Wed, 19 May 2010 06:48:36 +0000 Bostic86 I found a VBA code that fits the program I’m trying to create but I’m having a difficult time locating the 12-1 lunch break so I can make it straight time. Listed below is the code. Function CalculateDownTime(StartTime As Date, EndTime As Date) As Double Dim Result As Double, EndDay As Date Result = 0 If Not IsWorkTime(StartTime) Then Call Move2Next(StartTime) Do While StartTime < EndTime EndDay = CalculateEnd(StartTime) If EndTime < EndDay Then Result = Result + DateDiff(“n”, StartTime, EndTime) / 60 Else Result = Result + DateDiff(“h”, StartTime, EndDay) End If Call Move2Next(StartTime) Loop CalculateDownTime = Result End Function Sub Move2Next(DateX As Date) If Weekday(DateX, 2) = 5 And Hour(DateX) >= 13 And Hour(DateX) <= 23 Then DateX = DateSerial(year(DateX), Month(DateX), Day(DateX)) DateX = DateAdd(“d”, 3, DateX) DateX = DateAdd(“h”, 8, DateX) ElseIf Weekday(DateX, 2) = 6 Then DateX = DateSerial(year(DateX), Month(DateX), Day(DateX)) DateX = DateAdd(“d”, 2, DateX) DateX = DateAdd(“h”, 8, DateX) ElseIf (Weekday(DateX, 2) = 7) Or (Hour(DateX) >= 13 And Hour(DateX) <= 23) Then DateX = DateSerial(year(DateX), Month(DateX), Day(DateX)) DateX = DateAdd(“d”, 1, DateX) DateX = DateAdd(“h”, 8, DateX) ElseIf Hour(DateX) >= 0 And Hour(DateX) < 8 Then DateX = DateSerial(year(DateX), Month(DateX), Day(DateX)) DateX = DateAdd(“h”, 8, DateX) ElseIf Hour(DateX) >= 8 And Hour(DateX) < 13 Then DateX = DateSerial(year(DateX), Month(DateX), Day(DateX)) DateX = DateAdd(“h”, 13, DateX) End If End Sub Function IsWorkTime(DateX As Date) As Boolean If Weekday(DateX, 2) <> 6 And Weekday(DateX, 2) <> 7 And _ ((Hour(DateX) >= 8 And Hour(DateX) <= 11) Or (Hour(DateX) >= 13 And Hour(DateX) <= 16)) Then IsWorkTime = True Else IsWorkTime = False End If End Function Function CalculateEnd(DateX As Date) As Date Dim Result As Date Result = DateSerial(year(DateX), Month(DateX), Day(DateX)) If Hour(DateX) < 12 Then Result = DateAdd(“h”, 12, Result) Else Result = DateAdd(“h”, 17, Result) End If CalculateEnd = Result End Function Any help would be appreiciated. Thanks

]]> http://itknowledgeexchange.techtarget.com/itanswers/calculate-business-hours/feed/ 1 http://itknowledgeexchange.techtarget.com/itanswers/e-mail-notification/ http://itknowledgeexchange.techtarget.com/itanswers/e-mail-notification/#comments Sat, 22 Nov 2008 05:02:23 +0000 Mightymrs Can Access 2007 notifiy me by e-mail when someone has added or made a change to my data file?

]]> http://itknowledgeexchange.techtarget.com/itanswers/e-mail-notification/feed/ 1