请教各位大大,如何获得今年2月和去年2月各是几天?

DateUtils單元中的下列函數都可某年某月的天數：

function DayOf(const AValue: TDateTime): Word;

function DayOfTheMonth(const AValue: TDateTime): Word;

function DaysInAMonth(const AYear, AMonth: Word): Word;

function DaysInMonth(const AValue: TDateTime): Word;

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------

例如：
procedure TForm1.Button1Click(Sender: TObject);
var
y1, y2: Word; //今年，去年
begin
y1 := YearOf(now);
y2 := y1 - 1;
edit1.Text := IntToStr(DaysInAMonth(y1, 2));
Edit2.Text := IntToStr(DaysInAMonth(y2, 2));
end;

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------

谢谢!很好用!
另: 要在uses中加入 DateUtils

編輯記錄