month_number <- function(month, month_values=seq.Date(from=as.Date("1970-01-01"), to=today()+1000, by="1 month")) {
  match(month, month_values)
}