today<-Sys.Date()
format(today,'%u')
format(today,'%U')
想问问格式为U为第几周，那格式为u的时候输出是什么？