-
Hello!
I have had great success (fun) finding out the following code:
MkDir "C:\Temp\" & Format(Now -1, "mm-dd-yy") & ""
ActiveWorkbook.saveas Filename:="C:\Temp\" & Format(Now - _ 1, "mm-dd-yy") & "\File" & Format(Now -1, "mm-dd-yy")
However this does not help me when I am running the code on a Monday! If anyone knows what I can write to get the current business day minus 1 business day (not calendar day) in that "Now" part, I would greatly appreciate it! Thank you for any direction.
Best regards!
-
Is this what you want?
Code:
'Author: eduardo Alvarez Bastida
'Origin: http://www.planet-source-code.com
'Purpose: WorkingDays counts days except Weekends and Holidays
'Version: VB4+
'Put this In a CommandButton
'
Dim aH(8)
aH(1) = "1/1"
aH(2) = "5/2"
aH(3) = "21/3"
aH(4) = "1/5"
aH(5) = "5/5"
aH(6) = "16/9"
aH(7) = "20/10"
aH(8) = "25/12"
debug.print = WorkingDays("01/01/00", "01/01/01", aH())
'
Public Function WorkingDays(dBeginDate As Date, dEndDate As Date, ByRef aHolidays As Variant) As Integer
Dim intTotalDays As Integer
Dim intHoliday As Integer
Dim booWeekend As Boolean
Dim intSatSun As Integer
Dim strCDayMonth As String
Dim strNDayMonth As String
Dim i As Integer
Dim dNewDate As Date
If dBeginDate>=dEndDate Then Exit Function
intTotalDays = DateDiff("d", dBeginDate, dEndDate)
For i = 1 To intTotalDays
dNewDate = DateAdd("d", i, dBeginDate)
If isWeekEnd(dNewDate) Then
booWeekend = True
Else
booWeekend = False
End If
strNDayMonth = Day(dNewDate) & "/" & Month(dNewDate)
For n = 1 To UBound(aHolidays)
'strMonth = Mid(aHolidays(h), istr("/",
' aHolidays(h)) + 1)
If (strNDayMonth = aHolidays(n)) And Not booWeekend Then
intHoliday = intHoliday + 1
booWeekend = False
Exit For
End If
Next n
If booWeekend Then
intSatSun = intSatSun + 1
End If
Next i
WorkingDays = intTotalDays - intSatSun - intHoliday
End Function
Private Function isWeekEnd(ByRef dCheck As Date) As Boolean
If DatePart("w", dCheck) = 1 Or DatePart("w", dCheck) = 7 Then isWeekEnd = True
End Function
