Access培训-Access开发平台-Access行业开发
Access交流网(免费Access交流)
QQ:18449932
网 址:www.access-cn.com
Private Sub Command1_Click()Dim dtl As Datedtl = DateSerial(Year(Now), Month(Now) + 1, 1) - 1MsgBox dtlEnd Sub