大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
先加到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返回的值中分别提取年,月,日的信息