R语言两种方式求指定日期所在月的天数

             R语言两种方式求指定日期所在月的天数

 

 

 

days_monthday-function(date)
{
m-format(date,format="%m")
days31-c("01","03","05","07","08","10","12")
days30-c("04","06","09","11")
days29-c("02")

if(m %in% days31) return(31)
if(m %in% days30) return(30)
if(m %in% days29) return(29)
}
days_monthday1-function(date)
{
m-format(date,format="%m")
while(format(date,format="%m")==m)
{
date-date+1
}
return(as.integer(format(date-1,format="%d")))
}
date-as.Date("2017-4-11","%Y-%m-%d")
date
days-days_monthday(date);days
day-days_monthday1(date);day

 

 

最新回复(0)
/jishu7rtBgosSsTJlScknkuEwBbaZ6Y7ZKQ2B4eSjZw_3D_3D4690813
8 简首页