mode(Sys.Date())
as.numeric(Sys.Date())

class(Sys.Date())
class(Sys.time())

oggi <- Sys.Date()
oggi + 7
month(oggi, 
      label = TRUE, 
      abbr = FALSE, 
      locale = Sys.setlocale("LC_TIME", "it_IT.UTF-8"))


month(oggi, 
      label = TRUE, 
      abbr = FALSE, 
      locale = Sys.setlocale("LC_TIME", "it_IT.UTF-8"))

day(oggi)
wday(oggi, label = TRUE, abbr = FALSE)

year(oggi)

Sys.Date()
class(today())

ora <- now()

hour(ora)
minute(ora)
second(ora)


today() - as.Date("1970-08-28")
difftime(today(), as.Date("1970-08-28"),
         units = "weeks") / 52
