如果日期格式不正确,则返回错误消息

Question

我有一个函数调用特定的日期格式.例如,仅当格式为

2002-09-04 16:45:40

然后该功能将起作用.否则,它将返回错误消息,例如

"Format incorrect"

我想知道如何实现它？

Answer 1

试试这个:

convert.to.date <- function(d) {
  if(is.na(strptime(d, '%Y-%m-%d %H:%M:%S'))) stop("Format incorrect")
  return(format(d, format='%Y-%m-%d %H:%M:%S', usetz = FALSE))
}

convert.to.date('2002-09-04 16:45:40')
#[1] "2002-09-04 16:45:40"
convert.to.date('09-04-2002 16:45:40')
#Error in convert.to.date("09-04-2002 16:45:40") : Format incorrect