Format(Now, "mmmm")
dim s1 as strings1= "," & Month(Now) & ","text1.text=Replace(Replace(s1,",1,","Jan"),",2,","Feb").....
找个英文日历控件
