Customers1$date <- Sys.Date()

Customers1$MonthsLive <- round((Customers1$date - Customers1$from_date) /(365.25/12))