## 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.

`data.table`

solution

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 ]

**output**

# 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 `d`

with `saturdayList`

and it would still work.

Define `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))

giving:

[1] "2018-01-13" "2018-01-20" "2018-02-10" "2018-02-17" "2018-03-10" [6] "2018-03-17" "2018-04-14" "2018-04-21" "2018-05-12" "2018-05-19" [11] "2018-06-09" "2018-06-16" "2018-07-14" "2018-07-21" "2018-08-11" [16] "2018-08-18" "2018-09-08" "2018-09-15" "2018-10-13" "2018-10-20" [21] "2018-11-10" "2018-11-17" "2018-12-08" "2018-12-15" "2019-01-12" [26] "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