先加到9月,然后減去7天,即為8月最后一天,很好理解,如果跨年度需要判斷一下,變成下個(gè)年度的1月再減即可,很簡單吧
創(chuàng)新互聯(lián)是一家專業(yè)提供劍河企業(yè)網(wǎng)站建設(shè),專注與成都網(wǎng)站建設(shè)、網(wǎng)站建設(shè)、html5、小程序制作等業(yè)務(wù)。10年已為劍河眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)站制作公司優(yōu)惠進(jìn)行中。
DateTime.Today.AddMonths(1).AddDays(-DateTime.Today.Day);
變通一下這么難?我給的例子是取當(dāng)天
把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
當(dāng)月第一天:
DateSerial(Year(Now()), Month(Now()), 1)
當(dāng)月最后一天:
DateSerial(Year(Now()), Month(Now()) + 1, 0)
用日期函數(shù)day()可獲得當(dāng)前日期,time()可獲得當(dāng)前系統(tǒng)時(shí)間.
dim CurDay as string
dim CurTime as string
curday=day()
curtime=time()
Label1.Caption = Date
就能在Label16顯示當(dāng)前日期
now 這個(gè)函數(shù)可以獲得當(dāng)前系統(tǒng)時(shí)間(包括年月日,小時(shí)分鐘秒)
而
year()
month()
day()
等等則可以從now返回的值中分別提取年,月,日的信息