### <code r>
(x <- c("16-Jan", "1-Feb", "17-Feb"))
# [1] "16-Jan" "1-Feb" "17-Feb"
(mylocTime <- Sys.setlocale("LC_TIME"))
# [1] "Portuguese_Brazil.1252"
Sys.setlocale("LC_TIME","English")
# [1] "English_United States.1252"
(x2 <- as.Date(x, "%d-%b"))
# [1] "2014-01-16" "2014-02-01" "2014-02-17"
Sys.setlocale("LC_TIME", mylocTime) ### Volta ao idioma original da sessão
# [1] "Portuguese_Brazil.1252"
x
# [1] "16-Jan" "1-Feb" "17-Feb"
x2
# [1] "2014-01-16" "2014-02-01" "2014-02-17"
format(x2, "%d-%b"); format(x2, "%d-%B")
# [1] "16-jan" "01-fev" "17-fev"
# [1] "16-janeiro" "01-fevereiro" "17-fevereiro"
### </code>