13518219792
先加到9月，然后减去7天，即为8月最后一天，很好理解，如果跨年度需要判断一下，变成下个年度的1月再减即可，很简单吧
创新互联是一家专业提供剑河企业网站建设,专注与成都网站建设、网站建设、html5、小程序制作等业务。10年已为剑河众多企业、政府机构等服务。创新互联专业网站制作公司优惠进行中。
DateTime.Today.AddMonths(1).AddDays(-DateTime.Today.Day);
变通一下这么难？我给的例子是取当天
把DateTime.Today 改成 datetimepicker1.Value 不就行了，真汗……
datetimepicker2.Value=datetimepicker1.Value.AddMonths(1).AddDays(-datetimepicker1.Value.Day);
Private Sub Form_Click()
Dim R As Date
R = Date '此处输入你要查看的月份中的任意一天
R = R - Day(R) + 35
R = R - Day(R)
Cls
Print R '之前输入的日期所在月份的最后一天
End Sub
当月第一天：
DateSerial(Year(Now()), Month(Now()), 1)
当月最后一天：
DateSerial(Year(Now()), Month(Now()) + 1, 0)
用日期函数day()可获得当前日期,time()可获得当前系统时间.
dim CurDay as string
dim CurTime as string
curday=day()
curtime=time()
Label1.Caption = Date
就能在Label16显示当前日期
now 这个函数可以获得当前系统时间（包括年月日，小时分钟秒）
而
year()
month()
day()
等等则可以从now返回的值中分别提取年，月，日的信息
