R/last_day_month.R

Defines functions last_day_month

last_day_month<-function(date_in){
  date_initial=as.Date(paste0("01/",format(date_in,"%m/%Y")),"%d/%m/%Y")
  last_day=as.numeric(format(tail(seq(date_initial, by="month",length=2),1)-1,"%d"))  
return(last_day)
}
veldanie/SuraFixedIncome documentation built on Feb. 15, 2021, 9:42 a.m.