Hello R Freaks, I calculate the difference in days between two events with the following litte R expresseion: T1a <- strptime(T1,"%m/%d/%y %H:%M:%S"); T2a <- strptime(T2,"%m/%d/%y %H:%M:%S"); T1b <- as.Date(T1a); T2b <- as.Date(T2a); days <- T2b-T1b; time <- T2a - T1a; In the project I would like to calculate only working day. I the a possibility to count on woring days without weekends? Is it maybe also possible to skip in addition the national holiday dates? Thanks a lit for your help Thorsten Mit freundlichen Grüßen / Best Regards / С наилучшими пожеланиями / üdvözlettel Dr .Th.Mühge, [[alternative HTML version deleted]]
Try this:
# Without the weekend
sum(!format(seq(T1a, T2a, by = "days"), "%w") %in%
c("0","6"))
On Wed, May 28, 2008 at 10:30 AM, Thorsten Muehge <MUEHGE@de.ibm.com>
wrote:
> Hello R Freaks,
> I calculate the difference in days between two events with the following
> litte R expresseion:
>
> T1a <- strptime(T1,"%m/%d/%y %H:%M:%S");
> T2a <- strptime(T2,"%m/%d/%y %H:%M:%S");
> T1b <- as.Date(T1a);
> T2b <- as.Date(T2a);
> days <- T2b-T1b;
> time <- T2a - T1a;
>
> In the project I would like to calculate only working day.
>
> I the a possibility to count on woring days without weekends?
>
> Is it maybe also possible to skip in addition the national holiday dates?
>
> Thanks a lit for your help
> Thorsten
>
> Mit freundlichen Grüßen / Best Regards / С наилучшими пожеланиями /
> üdvözlettel
>
> Dr .Th.Mühge,
>
> [[alternative HTML version deleted]]
>
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
>
--
Henrique Dallazuanna
Curitiba-Paraná-Brasil
25° 25' 40" S 49° 16' 22" O
[[alternative HTML version deleted]]
See ?is.holiday in chron. You need to supply a .Holidays vector and then do this: library(chron) d1 <- Sys.Date() d2 <- Sys.Date() + 100 sq <- sq(d1, d2, by = "day") sum(!is.holiday(sq) & !is.weekend(sq)) # endpoints included The fCalendar package also has functionality in this area. On Wed, May 28, 2008 at 9:30 AM, Thorsten Muehge <MUEHGE at de.ibm.com> wrote:> Hello R Freaks, > I calculate the difference in days between two events with the following > litte R expresseion: > > T1a <- strptime(T1,"%m/%d/%y %H:%M:%S"); > T2a <- strptime(T2,"%m/%d/%y %H:%M:%S"); > T1b <- as.Date(T1a); > T2b <- as.Date(T2a); > days <- T2b-T1b; > time <- T2a - T1a; > > In the project I would like to calculate only working day. > > I the a possibility to count on woring days without weekends? > > Is it maybe also possible to skip in addition the national holiday dates? > > Thanks a lit for your help > Thorsten > > Mit freundlichen Gr??en / Best Regards / ? ?????????? ??????????? / > ?dv?zlettel > > Dr .Th.M?hge, > > [[alternative HTML version deleted]] > > > ______________________________________________ > R-help at r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. > >
Hello R Freaks, I calculate the difference in days between two events with the following litte R expresseion: T1a <- strptime(T1,"%m/%d/%y %H:%M:%S"); T2a <- strptime(T2,"%m/%d/%y %H:%M:%S"); T1b <- as.Date(T1a); T2b <- as.Date(T2a); days <- T2b-T1b; time <- T2a - T1a; In the project I would like to calculate only working day. I the a possibility to count on woring days without weekends? Is it maybe also possible to skip in addition the national holiday dates? Thanks a lit for your help Thorsten Mit freundlichen Grüßen / Best Regards / С наилучшими пожеланиями / üdvözlettel Dr .Th.Mühge, [[alternative HTML version deleted]]
This was already answered by two people when you posted it the first time. On Mon, Jun 2, 2008 at 12:34 PM, Thorsten Muehge <MUEHGE at de.ibm.com> wrote:> Hello R Freaks, > I calculate the difference in days between two events with the following > litte R expresseion: > > T1a <- strptime(T1,"%m/%d/%y %H:%M:%S"); > T2a <- strptime(T2,"%m/%d/%y %H:%M:%S"); > T1b <- as.Date(T1a); > T2b <- as.Date(T2a); > days <- T2b-T1b; > time <- T2a - T1a; > > In the project I would like to calculate only working day. > > I the a possibility to count on woring days without weekends? > > Is it maybe also possible to skip in addition the national holiday dates? > > Thanks a lit for your help > Thorsten > Mit freundlichen Gr??en / Best Regards / ? ?????????? ??????????? / > ?dv?zlettel > > Dr .Th.M?hge, > > [[alternative HTML version deleted]] > > > ______________________________________________ > R-help at r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. > >