HI,
For a vector of dates:
Using Michael's suggestion:
library(xts)
library(zoo)
Dt<-c("2012-09-27","2012-09-28","2012-07-24","2012-06-05","2012-12-03")
newDt<-strsplit(format(as.yearmon(Dt),"%Y-%m"),split="-")
StartDt<-do.call(rbind,lapply(lapply(lapply(newDt,`[`,1:2),function(x)
as.numeric(c(x[1],x[2]))),function(x)
format(firstof(x[1],x[2],sec=1),format="%Y-%m-%d %r")))
EndDt<-do.call(rbind,lapply(lapply(lapply(newDt,`[`,1:2),function(x)
as.numeric(c(x[1],x[2]))),function(x)
format(lastof(x[1],x[2]),format="%Y-%m-%d %r")))
dat1<-data.frame(inputDate=Dt,StartDt=StartDt,EndDt=EndDt)
dat1
# inputDate StartDt EndDt
#1 2012-09-27 2012-09-01 12:00:01 AM 2012-09-30 11:59:59 PM
#2 2012-09-28 2012-09-01 12:00:01 AM 2012-09-30 11:59:59 PM
#3 2012-07-24 2012-07-01 12:00:01 AM 2012-07-31 11:59:59 PM
#4 2012-06-05 2012-06-01 12:00:01 AM 2012-06-30 11:59:59 PM
#5 2012-12-03 2012-12-01 12:00:01 AM 2012-12-31 11:59:59 PM
A.K.
----- Original Message -----
From: R. Michael Weylandt <michael.weyla...@gmail.com>
To: Rantony <antony.akk...@ge.com>
Cc: r-help@r-project.org
Sent: Thursday, September 27, 2012 11:33 AM
Subject: Re: [R] Start and End day of a month
On Thu, Sep 27, 2012 at 1:21 PM, Rantony <antony.akk...@ge.com> wrote:
> Hi,
>
> Can anyone please help to get "StartDay" and "End-day of a particular month"
> with time ?
>
> For eg:- Input wil be "2012-09-27"
>
> i need to get output as given below
>
> StartDt <- "2012-09-01 00:00:01"
> EndDt <- "2012-09-30 23:59:59"
>
> - Thanks in advance
Look at xts::lastof().
Cheers,
Michael
______________________________________________
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.
______________________________________________
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.
