R语言判断是否是闰年-自定义函数

R语言判断是否是闰年-自定义函数

定义含参函数判断年份是否为闰年，代码如下：

leap<-function(x){
        if(x%%4==0){
                if(((x%%100==0)&(x%%400==0))|(x%%100!=0))
                        return(TRUE) else
                                return(FALSE)
        } else
                return(FALSE)
}

结果示例如下：

leap(2004)
[1] TRUE
leap(2000)
[1] TRUE
leap(2001)
[1] FALSE
leap(2020)
[1] TRUE
leap(2300)
[1] FALSE