Displaying 1 result from an estimated 1 matches for "exceptonlastfriday".
2007 Dec 11
0
holidayNYSE missing some
...POSIXlt(ans@Data)$wday == 0) *
> 24 * 3600
> posix = as.POSIXlt(ans@Data)
> y = posix$year + 1900
> m = posix$mon + 1
> lastday = as.POSIXlt((timeCalendar(y = y + (m + 1)%/%13,
> m = m + 1 - (m + 1)%/%13 * 12, d = 1) - 24 * 3600)@Data)$mday
> ExceptOnLastFriday = timeDate(as.character(.last.of.nday(year = y,
> month = m, lastday = lastday, nday = 5)))
> ans = ans - as.integer(ans >= timeDate("1959-07-03") &
> as.POSIXlt(ans@Data)$wday ==
> 0 & ans != ExceptOnLastFriday) * 24 * 3600
> if (West==F)...