vb.net获取最后一天 vba获取本月最后一天

vb.net2005如何获取当月最后一天的日期？？

先加到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返回的值中分别提取年，月，日的信息

本文题目：vb.net获取最后一天 vba获取本月最后一天
转载源于：http://ybzwz.com/article/dddjegd.html