# Re: 日期的问题????????????

Posted by styler on October 12, 1999 at 10:59:00:

In Reply to: 日期的问题???????????? posted by mirice on October 12, 1999 at 09:40:54:

: 我想在报表上，显示每月份的1号和最后号，不知如何写出。

text1(0).Text = DateAdd("m", 0, Date - Day(Date) + 1)
text1(1).Text = DateAdd("m", 1, Date) - Day(Date)
如此写...只要修改dataadd()的第2个参修值即可+,-月份
例
text1(0).Text = DateAdd("m", -6, Date - Day(Date) + 1)
结果即为半年前的那个月1日

Follow Ups: