library(lubridate)
date1_format = as.character(ymd(20150221));date1_format
## [1] "2015-02-21"
date2_format = as.character(ymd(20190623));date2_format
## [1] "2019-06-23"
month_between_date_sk = interval(date1_format,date2_format) %/% months(1);month_between_date_sk
## Note: method with signature 'Timespan#Timespan' chosen for function '%/%',
## target signature 'Interval#Period'.
## "Interval#ANY", "ANY#Period" would also be valid
## [1] 52
days_between_date_sk = interval(date1_format,date2_format) %/% days(1);days_between_date_sk
## [1] 1583