用format提取Date数据中的月份数提取不出来

s601669$Trddt是存放交易日期的列，数据格式为2011-10-18,2011-10-19(即中间使用-作为分隔），现在我想提取其中的年，月，日信息留作他用。
使用了下面的代码:
s601669$Trddt<-as.Date(s601669$Trddt,format="%y-%m-%d")
year<-format(s601669$Trddt,format="%Y")
month<-format(s601669$Trddt,format="%M")
day<-format(s601669$Trddt,format="%d")


其中年，日信息都顺利提取出来了，但month确全是"00"的字符串。请问这是为什么呢？该如何解决呢？恳请大家的帮助！非常感谢！

1. d <- '2011-1-1'
   
2. d <- as.Date(d, "%Y-%m-%d")
   
3. month <- format(d,format <- '%m')

复制代码

m是小写

1. Trddt <- c("2011-10-18", "2011-10-19")
   
2. library(lubridate)
   
3. year(Trddt)
   
4. month(Trddt)
   
5. day(Trddt)

复制代码