DTPicker日期控件如何显示当月第一天,当月最后一天?

Question

时间查询条件开始日期自动默认为系统当月第一天,截止日期自动默认为系统当月最后一天,如:现在为3月,开始日期默认为2009-03-01,截止日期默认为:2009-02-31哪位大虾能指点下

Answer 1

Dim dtl As Date
Dim dt2 As Date
dt1 = Date
dt2 = DateSerial(Year(dt1), Month(dt1) + 1, 1) - 1
DTPicker1.Value = Format$(Date, "yyyy-mm-01") '当月的第一天(开始日期)
DTPicker2.Value = dt2'当月的最后一天(截止日期)

Answer 2

pls use the above user's suggestion