Get 2nd and 4th Saturday of Month
d = seq(as.Date("2018-01-01"),Sys.Date(),by='day') saturdayList = d[weekdays(d)=='Saturday']
How to get the 2nd and 4th saturday of a month from above list of Saturday dates?
Get 2nd and 4th Saturday of Month, You can split the vector into a list and extract the 2nd and 4th element per month: lapply(split(saturdayList, format(saturdayList, "%Y-%m")), `[`� Then for each element of d find the first of the month, apply nextsat to give the first Saturday of the month and add 7 to get the second Saturday of each month. Add 14 to get the 4th Saturday and sort into a single vector. No packages are used.
The solution is slower (on the sample data), than the 'lapply-solution' from docendo discimus. However, it is very flexible, and will alsoperform quite well on larger data-sets.
library(data.table) #build a data.table out of the vector DT <- data.table(date = d) #group by month, select the second and 4 row where wday == 7 (i.e. Saturday) DT[ DT[ , .I[wday(date) == 7][c(2,4)], by = .(month(date)) ]$V1 ]
# date # 1: 2018-01-13 # 2: 2018-01-27 # 3: 2018-02-10 # 4: 2018-02-24 # 5: 2018-03-10 # 6: 2018-03-24 # 7: 2018-04-14 # 8: 2018-04-28 # 9: 2018-05-12 # 10: 2018-05-26 # 11: 2018-06-09 # 12: 2018-06-23 # 13: 2018-07-14 # 14: 2018-07-28 # 15: 2018-08-11 # 16: 2018-08-25 # 17: 2018-09-08 # 18: 2018-09-22 # 19: 2018-10-13 # 20: 2018-10-27 # 21: 2018-11-10 # 22: 2018-11-24 # 23: 2018-12-08 # 24: 2018-12-22 # date
Find 2nd & 4th saturday for every month, date. If the day happens to be the 2nd or the 4th saturday in that month, it should get highlighted. How do i calculate the 2nd & 4th saturdays? Inside WEEKDAY, the first of the month is again calculated, then 8 days are added and the value for dow (day of week) is subtracted. Day of week is abbreviated "dow" in the generic form of the formula. This is a number between 1 (Sunday) and 7 (Saturday) which can be changed as needed.
1) This calculates a vector of 2nd and 4th Saturdays directly from
d although we could replace
saturdayList and it would still work.
nextsat, based on
nextfri in the zoo quickref vignette, which gives the next Saturday on or after the input date for each element of the input vector. Then for each element of
d find the first of the month, apply
nextsat to give the first Saturday of the month and add 7 to get the second Saturday of each month. Add 14 to get the 4th Saturday and sort into a single vector. No packages are used.
nextsat <- function(x) 7 * ceiling(as.numeric(x-6+4) / 7) + as.Date(6-4, origin = "1970-01-01") sat2 <- unique(nextsat(as.Date(cut(d, "month")))) + 7 sort(c(sat2, sat2 + 14))
 "2018-01-13" "2018-01-20" "2018-02-10" "2018-02-17" "2018-03-10"  "2018-03-17" "2018-04-14" "2018-04-21" "2018-05-12" "2018-05-19"  "2018-06-09" "2018-06-16" "2018-07-14" "2018-07-21" "2018-08-11"  "2018-08-18" "2018-09-08" "2018-09-15" "2018-10-13" "2018-10-20"  "2018-11-10" "2018-11-17" "2018-12-08" "2018-12-15" "2019-01-12"  "2019-01-19" "2019-02-09" "2019-02-16" "2019-03-09" "2019-03-16"
2) This computes a vector
satno giving the number of each Saturday within its month and then picks off the second and fourth. This also does not use any packages.
satno <- ave(as.numeric(saturdayList), cut(saturdayList, "month"), FUN = seq_along) saturdayList[satno %in% c(2, 4)]
how to calculate networkdays excluding 2nd & 4th saturday of month , Excel Ninja There are 137 days in the above period , including both Start Date and End Date ; out of these , there are 20 Sundays , and 9 second Saturdays ( the 2nd and 4th Saturdays in every month are the second Saturdays ). If you subtract 29 from 137 , you should get 108. determining a day whether it is first,second,third,fourth or last in a month how to get last date of the month from the current date in sql server To GET the all FRIDAY's date of a particular month of a year
Highlight the 2nd Saturday and Sunday of any Given Month, Highlight the 2nd Saturday and Sunday of any Given Month - Excel Trick. Computergaga Duration: 6:51 Posted: Sep 28, 2018 On Saturday May 4th the forums will briefly break when I switch our Apache PHP 5.6 module to PHP 7.0. Previously, I had two sites set up for testing the migration, but for many reasons, the second site has additional issues unrelated to PHP 7.0 so it is hard to debug on a different site and
How to find-out 2nd and 4th Saturdays of Month in SQL 2008 R2 (SP , Dear Experts, How to find out whether Date is 2nd or 4th Saturdays, for examples , DECLARE @dayNumber INT, @i_Attendance_Day date Set� Figure 2. Sample data to get nth day of week in month. Get 1st Monday of February. In order to get the first Monday of February, we will be using a formula with the DAY and WEEKDAY functions. Let us follow these steps: Step 1. Select cell F3. Step 2. Enter the formula: =B3-DAY(B3)+1+E3*7-WEEKDAY(B3-DAY(B3)+8-D3) Step 3. Press ENTER . Step 4
Testing whether today is the second or fourth Saturday of the month , Since you already know which month it is now, just calculate only the month you To do this you would have to give the month as a second parameter Instead of return a dict of month with second/fourth saturdays, I think it� I tried to get 3rd or 4th Saturday of month, but can not get. It works just 1st and 2nd Saturday of month. declare @month tinyint declare @year int declare @datestring varchar(20) declare @isSat bit set @isSat=0 set @year=2009 set @month=6 declare @counter tinyint set @counter=1