在excel的VBA里怎么获取日期和星期几

在excel的VBA里如何获取日期和星期几
我想获取当前系统的月份的最大日期,如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