![]() |
Check overlap sunday/weekend
Hi,
I have a query on the overlap sunday for last week of sunday/weekend and first week sunday/weekend. For example, 30th June 2007 is considered last week of sunday/weekend and I have tasks: XYZ that need to exceute it. But on 1st July 2007, it is considered as first sunday/weekend and I have another tasks: ABC to run on this date. Please advise on how to check this using vba. Thanks. regards, newbie |
Check overlap sunday/weekend
Maybe
=IF(AND(WEEKDAY(date_cell)=7,MONTH(date_cell)<MON TH(Date_cell+1)), ... for the Sat and =IF(AND(WEEKDAY(date_cell)=1,MONTH(date_cell-1)<MONTH(Date_cell)), ... for the Sun -- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) " wrote in message ups.com... Hi, I have a query on the overlap sunday for last week of sunday/weekend and first week sunday/weekend. For example, 30th June 2007 is considered last week of sunday/weekend and I have tasks: XYZ that need to exceute it. But on 1st July 2007, it is considered as first sunday/weekend and I have another tasks: ABC to run on this date. Please advise on how to check this using vba. Thanks. regards, newbie |
Check overlap sunday/weekend
On Sep 26, 3:19 pm, "Bob Phillips" wrote:
Maybe =IF(AND(WEEKDAY(date_cell)=7,MONTH(date_cell)<MON TH(Date_cell+1)), ... for the Sat and =IF(AND(WEEKDAY(date_cell)=1,MONTH(date_cell-1)<MONTH(Date_cell)), ... for the Sun -- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) " wrote in message ups.com... Hi, I have a query on the overlap sunday for last week of sunday/weekend and first week sunday/weekend. For example, 30th June 2007 is considered last week of sunday/weekend and I have tasks: XYZ that need to exceute it. But on 1st July 2007, it is considered as first sunday/weekend and I have another tasks: ABC to run on this date. Please advise on how to check this using vba. Thanks. regards, newbie- Hide quoted text - - Show quoted text - Hi, Thanks. How about coding using vba? regards, Newbie |
Check overlap sunday/weekend
Dim myDate As Date
Dim LastWeek As Boolean Dim FirstWeek As Boolean myDate = DateSerial(2007, 6, 30) LastWeek = Weekday(myDate) = 7 And Month(myDate) < Month(myDate + 1) FirstWeek = Weekday(myDate) = 1 And Month(myDate - 1) < Month(myDate + 1) MsgBox "Date " & myDate & ": " & vbNewLine & _ vbTab & "Firstweek = " & FirstWeek & vbNewLine & _ vbTab & "Lastweek = " & LastWeek myDate = DateSerial(2007, 7, 1) LastWeek = Weekday(myDate) = 7 And Month(myDate) < Month(myDate + 1) FirstWeek = Weekday(myDate) = 1 And Month(myDate - 1) < Month(myDate + 1) MsgBox "Date " & myDate & ": " & vbNewLine & _ vbTab & "Firstweek = " & FirstWeek & vbNewLine & _ vbTab & "Lastweek = " & LastWeek myDate = Date LastWeek = Weekday(myDate) = 7 And Month(myDate) < Month(myDate + 1) FirstWeek = Weekday(myDate) = 1 And Month(myDate - 1) < Month(myDate + 1) MsgBox "Date " & myDate & ": " & vbNewLine & _ vbTab & "Firstweek = " & FirstWeek & vbNewLine & _ vbTab & "Lastweek = " & LastWeek -- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) " wrote in message ps.com... On Sep 26, 3:19 pm, "Bob Phillips" wrote: Maybe =IF(AND(WEEKDAY(date_cell)=7,MONTH(date_cell)<MON TH(Date_cell+1)), ... for the Sat and =IF(AND(WEEKDAY(date_cell)=1,MONTH(date_cell-1)<MONTH(Date_cell)), ... for the Sun -- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) " wrote in message ups.com... Hi, I have a query on the overlap sunday for last week of sunday/weekend and first week sunday/weekend. For example, 30th June 2007 is considered last week of sunday/weekend and I have tasks: XYZ that need to exceute it. But on 1st July 2007, it is considered as first sunday/weekend and I have another tasks: ABC to run on this date. Please advise on how to check this using vba. Thanks. regards, newbie- Hide quoted text - - Show quoted text - Hi, Thanks. How about coding using vba? regards, Newbie |
All times are GMT +1. The time now is 07:06 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com