R语言内置仅支持日期格式，不支持时间，如果需要时间格式，需要加载chron包

require(chron) # 加载chron

DataTime <- Sys.time() # 获取当前日期时间作为示例

Date <- as.Date(format(DataTime, '%Y-%m-%d')) # 提取日期

Time <- times(substr(as.character(DataTime),12,19)) # 提取时间，其中times()函数为chron包里的函数