如何取得当前日期是今年的第几天

Question

我可不想把每一年的每一个月的天数都列出来，然后再进行加减，如果是润年的活就改一下二月，有没有更好的方法，取得当前日期是今年的第几天。一起讨论呀！！！

Answer 1

uses DateUtils;procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('今年第一天：' + DateToStr(StartOfTheYear(ToDay)));
  ShowMessage('今天：' + DateToStr(ToDay));
  ShowMessage('相差：' + IntToStr(DaysBetween(ToDay, StartOfTheYear(ToDay))));
end;