delphi裡沒有取去年的今天的系統函數嗎？

Question

delphi裡沒有取去年的今天的系統函數嗎？

Answer 1

datetostr((now()-365)这样可以不?或者先取今天所在的年份,减1,再拼成去年的今天,
不过这样会有点小问题,比如,如果今年是闰年(xxxx)  那么(xxxx-1)-2-29就肯定不对了 呵呵``

Answer 2

function Lastyeartoday(today: Tdatetime): Tdatetime;
begin
  if (monthof(today) = 2) and (dayof(endofAmonth(yearof(today), monthof(today))) = dayof(today)) then //2月的最後一天
    result := strtodate(inttostr(yearof(today) - 1) + '/' + inttostr(monthof(today)) + '/' + inttostr(dayof(endofAmonth(yearof(today) - 1, monthof(today)))))
  else
    result := strtodate(inttostr(yearof(today) - 1) + '/' + inttostr(monthof(today)) + '/' + inttostr(dayof(today)))
end;

Answer 3

Caption := DateToStr(IncMonth(Date, -12));

Answer 4

to:zswang(伴水清清)(专家门诊清洁工) ( ) 
你這個方法實在是高，高，高。

Answer 5

to:zswang(伴水清清)(专家门诊清洁工) ( ) //不用考虑闰年的么？

Answer 6

//考虑闰年？是VCL的事了
//以下方法，道理一样
//DateUtils中有很多处理日期的函数，以后有日期处理方面的需求可以查一下uses DateUtils;procedure TFormMeeting.FormCreate(Sender: TObject);
begin
  Caption := DateToStr(IncYear(Date, -1));
end;

Answer 7

to oushengfen(逸帆) 
你發幾個例子到這裡讓我看一看。