##运行环境 MRO3.5.1.0
rm(list = ls(all.names = TRUE)) #移除工作空间中所有对象
#获取当前日期
Date.Now_1 <- date()
Date.Now_1 # "Sat Apr 20 09:35:07 2019"
typeof(Date.Now_1) # "character"
class(Date.Now_1) # "character"
Date.Now_2 <- Sys.Date()
Date.Now_2 # "2019-04-20"
typeof(Date.Now_2) # "double"
class(Date.Now_2) # "date"
Date.Now_3<-Sys.time()
Date.Now_3 # "2019-04-20 09:41:19 CST"
typeof(Date.Now_3) # "double"
class(Date.Now_3) # "POSIXct" "POSIXt"
#as.Date(x, format)把字符串转换成日期
Date1 <- "2018/5/10"
Date2<-"18/六月/10"
Date1.New <- as.Date(Date1) #输出"2018-05-10"
Date2.New <- as.Date(Date2, format = "%y/%b/%d") #输出"2018-05-10"
#提取日期的元素
Date1.New.Month <- months(Date1.