请问﹕当前月最后一天的日期该怎么获取﹖谢高手指点﹗

Question

如題﹐謝謝了!

Answer 1

谢楼上﹐请给出代码好码﹐我刚前天才学的Delphi

Answer 2

adoquery1.filtered:=false;
adoquery1.filter:='时间>='''+datetimetostr(datetimepicker1.date)+''''+'  and 时间<='''+datetimetostr(datetimepicker2.date)+''''+' and   结果  like '''+trim(edit2.text)+'''';
adoquery1.filtered:=true;

Answer 3

dt := strToDate('2006-5-1')
IncDay(dt,-1)

Answer 4

謝樓上指點﹐已實現。代碼如下﹕
Self.time1.Date:=strtodate(inttostr(SysTime.wYear) + '/' +
  inttostr(SysTime.wMonth) + '/01');
Self.time2.Date:=IncDay(IncMonth(Self.time1.Date,1),-1);