Embedded Files
Function HolidayAndWeekends()
NewYear = "01/01/2017"
MLK = "01/16/2017"
Presidents = "02/20/2017"
Memorial = "05/29/2017"
Independence = "07/04/2017"
Labor = "09/04/2017"
Columbus = "10/09/2017"
Veterans = "11/10/2017"
Thanksgiving = "11/23/2017"
Christmas = "11/25/2017"
Dim MyDate As Date
MyDate = Format(Now, "MM/DD/YYYY")
MyDay = Format(Now, "DDDD")
'MONDAY
If MyDay = "Monday" Then
'If Tuesday is a holiday
If NewYear = MyDate + 1 Then
MyDate = MyDate + 2
End If
If MLK = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Presidents = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Memorial = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Independence = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Labor = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Columbus = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Veterans = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Thanksgiving = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Christmas = MyDate + 1 Then
MyDate = MyDate + 2
End If
'If Today then Tomorrow
MyDate = MyDate + 1
End If
'TUESDAY
If MyDay = "Tuesday" Then
'If Wedensday is a holiday
If NewYear = MyDate + 1 Then
MyDate = MyDate + 2
End If
If MLK = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Presidents = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Memorial = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Independence = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Labor = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Columbus = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Veterans = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Thanksgiving = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Christmas = MyDate + 1 Then
MyDate = MyDate + 2
End If
'If Today then Tomorrow
MyDate = MyDate + 1
End If
'WEDNESDAY
If MyDay = "Wednesday" Then
'If Thursday is a holiday
If NewYear = MyDate + 1 Then
MyDate = MyDate + 2
End If
If MLK = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Presidents = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Memorial = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Independence = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Labor = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Columbus = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Veterans = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Thanksgiving = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Christmas = MyDate + 1 Then
MyDate = MyDate + 2
End If
'If Today then Tomorrow
MyDate = MyDate + 1
End If
'THURSDAY
If MyDay = "Thursday" Then
'If Friday is a holiday
If NewYear = MyDate + 1 Then
MyDate = MyDate + 4
End If
If MLK = MyDate + 1 Then
MyDate = MyDate + 4
End If
If Presidents = MyDate + 1 Then
MyDate = MyDate + 4
End If
If Memorial = MyDate + 1 Then
MyDate = MyDate + 4
End If
If Independence = MyDate + 1 Then
MyDate = MyDate + 4
End If
If Labor = MyDate + 1 Then
MyDate = MyDate + 4
End If
If Columbus = MyDate + 1 Then
MyDate = MyDate + 4
End If
If Veterans = MyDate + 1 Then
MyDate = MyDate + 4
End If
If Thanksgiving = MyDate + 1 Then
MyDate = MyDate + 4
End If
If Christmas = MyDate + 1 Then
MyDate = MyDate + 4
End If
'If Saturday is a holiday then Friday is observed
If NewYear = MyDate + 2 Then
MyDate = MyDate + 4
End If
If MLK = MyDate + 2 Then
MyDate = MyDate + 4
End If
If Presidents = MyDate + 2 Then
MyDate = MyDate + 4
End If
If Memorial = MyDate + 2 Then
MyDate = MyDate + 4
End If
If Independence = MyDate + 2 Then
MyDate = MyDate + 4
End If
If Labor = MyDate + 2 Then
MyDate = MyDate + 4
End If
If Columbus = MyDate + 2 Then
MyDate = MyDate + 4
End If
If Veterans = MyDate + 2 Then
MyDate = MyDate + 4
End If
If Thanksgiving = MyDate + 2 Then
MyDate = MyDate + 4
End If
If Christmas = MyDate + 2 Then
MyDate = MyDate + 4
End If
'If Today then Tomorrow
MyDate = MyDate + 1
End If
'FRIDAY
If MyDay = "Friday" Then
'If Monday is a holiday
If NewYear = MyDate + 3 Then
MyDate = MyDate + 4
End If
If MLK = MyDate + 3 Then
MyDate = MyDate + 4
End If
If Presidents = MyDate + 3 Then
MyDate = MyDate + 4
End If
If Memorial = MyDate + 3 Then
MyDate = MyDate + 4
End If
If Independence = MyDate + 3 Then
MyDate = MyDate + 4
End If
If Labor = MyDate + 3 Then
MyDate = MyDate + 4
End If
If Columbus = MyDate + 3 Then
MyDate = MyDate + 4
End If
If Veterans = MyDate + 3 Then
MyDate = MyDate + 4
End If
If Thanksgiving = MyDate + 3 Then
MyDate = MyDate + 4
End If
If Christmas = MyDate + 3 Then
MyDate = MyDate + 4
End If
'If Sunday is a holiday
If NewYear = MyDate + 2 Then
MyDate = MyDate + 4
End If
If MLK = MyDate + 2 Then
MyDate = MyDate + 4
End If
If Presidents = MyDate + 2 Then
MyDate = MyDate + 4
End If
If Memorial = MyDate + 2 Then
MyDate = MyDate + 4
End If
If Independence = MyDate + 2 Then
MyDate = MyDate + 4
End If
If Labor = MyDate + 2 Then
MyDate = MyDate + 4
End If
If Columbus = MyDate + 2 Then
MyDate = MyDate + 4
End If
If Thanksgiving = MyDate + 2 Then
MyDate = MyDate + 4
End If
If Christmas = MyDate + 2 Then
MyDate = MyDate + 4
End If
'If Today then Tomorrow
MyDate = MyDate + 3
End If
'SATURDAY
'If Monday is a holiday
If MyDay = "Saturday" Then
If NewYear = MyDate + 2 Then
MyDate = MyDate + 3
End If
If MLK = MyDate + 2 Then
MyDate = MyDate + 3
End If
If Presidents = MyDate + 2 Then
MyDate = MyDate + 3
End If
If Memorial = MyDate + 2 Then
MyDate = MyDate + 3
End If
If Independence = MyDate + 2 Then
MyDate = MyDate + 3
End If
If Labor = MyDate + 2 Then
MyDate = MyDate + 3
End If
If Columbus = MyDate + 2 Then
MyDate = MyDate + 3
End If
If Veterans = MyDate + 2 Then
MyDate = MyDate + 3
End If
If Thanksgiving = MyDate + 2 Then
MyDate = MyDate + 3
End If
If Christmas = MyDate + 2 Then
MyDate = MyDate + 3
End If
'If Today then Monday
MyDate = MyDate + 2
End If
'SUNDAY
If MyDay = "Sunday" Then
'If Monday is a holiday
If NewYear = MyDate + 1 Then
MyDate = MyDate + 2
End If
If MLK = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Presidents = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Memorial = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Independence = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Labor = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Columbus = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Veterans = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Thanksgiving = MyDate + 1 Then
MyDate = MyDate + 2
End If
If Christmas = MyDate + 1 Then
MyDate = MyDate + 2
End If
'If Today then Tomorrow
MyDate = MyDate + 1
End If
Forms("Wire Transfer Request Predfined 4")![ValueDate] = MyDate
End Function
Page updated
Google Sites
Report abuse