Office中国论坛/Access中国论坛

标题: 如何在下拉键获得当月的天数 [打印本页]

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

作者: ghfmac 时间: 2009-5-25 09:00
这个我也想知道！！！

作者: t小宝 时间: 2009-5-25 11:01
记得论坛上有这么一个例子

作者: todaynew 时间: 2009-5-25 11:57

如何在下拉键获得当月的天数我
想在下拉键获得当月的天数如：
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

[attach]38200[/attach]

[attach]38201[/attach]

作者: 朱同学 时间: 2009-5-25 20:23
谢谢分享

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)