# Copia e incolla ...
proc.time()
date()
Sys.Date()
Sys.time()
Sys.timezone()
# CEST – Central European Summer Time
# CET - Central European Time
format(Sys.time(), "%X"); format(Sys.time(), "%H")
print(format(Sys.time(), "%X"),quote=FALSE)
t <- function(x) strtoi(format(Sys.time(),paste("%",x,sep="")))
# STRings TO Integers
t("H");t("M");t("S"); (t("H")*60 + t("M"))*60+t("S")