library(zoo)
d1 <- "2017-12-01"
d2 <- "2017-01-03"
f <- "%Y-%m-%d"
(as.yearmon(strptime(d1,format = f))-as.yearmon(strptime(d2,format = f)))*12