Start and End day of a month

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.weylandt at gmail.com>
To: Rantony <antony.akkara at ge.com>
Cc: r-help at 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.akkara at 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