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]]

