在excel的VBA里怎么获取日期和星期几
在excel的VBA里如何获取日期和星期几
我想获取当前系统的月份的最大日期,如12月有31天,就获取31天,
然后或者这个日期下是星期几,如2009.12.16号是星期三.
因为我要遍历,从1号到31号,然后对应的天是星期几.这样.
------解决方案--------------------
我想获取当前系统的月份的最大日期,如12月有31天,就获取31天,
然后或者这个日期下是星期几,如2009.12.16号是星期三.
因为我要遍历,从1号到31号,然后对应的天是星期几.这样.
------解决方案--------------------
- VB code
Dim lDate As Long, i&
lDate = CLng(DateSerial(Year(Now), Month(Now) + 1, 0))
i = Day(lDate)
Debug.Print "当月最后一天是"; i; "号"
For i = lDate + 1 - i To lDate
Debug.Print Day(i); "号 星期"; Weekday(i, vbMonday)
Next