作者：乔山办公网日期：
返回目录：excel表格制作
Sub test()
MsgBox Format(Date + 1, "yyyy/mm/dd") '返回今天抄的日知期道加1
MsgBox Format(Date + 1, "aaaa") '返回今天的星期加1
End Sub
不用vba就可以解决
在第一列输入日期,将单元格的格式设置为日期格式
在第二列让每行的值等于第一列对应行,然后将第二列单元格格式设置为日期格式中的星期几这种类型,就ok了
假如日期在A1单元格，以下函数就返回这个日期的月份数：
Month(Range("A1"))
VB的几个函数：
Date 函数返回抄系统日百期
Weekday(Date) 函数返回系统日期对应的星期，
注意：星期日返回度1，星知期一返回2，星期二返回3，星期三返回4，星期四返回5，星期五返回6，星期六返回7
WeekdayName(Weekday(Date)) 函数返回系道统日期对应的星期的英语名称