如何在下拉键获得当月的天数

liaoqiang234

如何在下拉键获得当月的天数我
想在下拉键获得当月的天数如：
2009/05/01
2009/05/02
2009/05/03
2009/05/04
:::::
::::
::::
2009/05/31
一直到当月的最后一天，有什么代码可以实现呢?

ghfmac

这个我也想知道！！！

t小宝

记得论坛上有这么一个例子

todaynew

如何在下拉键获得当月的天数我
想在下拉键获得当月的天数如：
2009/05/01
2009/05/02
2009/05/03
2009/05/04
:::::
::::
::::
2009/05/31
一直到当月的最后一天，有什么代码可以实现呢?
liaoqiang234 发表于 2009-5-25 06:38

Private Sub Form_Load()
Dim mylist As String
Dim mydate As Date
mydate = DateSerial(Year(Date), Month(Date), 1)    '  获取当月1日的日期
mylist = ""
Do While Format(mydate, "yymm") = Format(Date, "yymm")
    mylist = mylist & mydate & ";"                           '  获取当月日期列表
    mydate = DateAdd("d", 1, mydate)
Loop
Me.日期.RowSource = mylist                                  '  对组合框数据源赋值
End Sub

朱同学

谢谢分享