Question

delphi 中 label1上显示的日期格式为XXXX年XX月XX日 星期X ，添加一个button判断日期的年份是否闰年，咋办

Answer 1

在Delphi中可以直接通过IsLeapYear判断一年是否为闰年。
用FormatDateTime可以很方便的获得任何格式的日期和时间显示。

就您这个例子可以这样写：
label1.Caption := FormatDateTime('YYYY年MM月dd日 DDD', Now);

希望可以帮到您。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
sdate: string;
idate: integer;
begin
sdate:= Copy(Label1.Caption, 1, 4);
idate:= StrToInt(sdate);
if ((idate mod 4) = 0) and ( ( (idate mod 100) <> 0) or ( (idate mod 400) = 0) ) then
ShowMessage('闰年')
else
ShowMessage('非闰年');
end;

Answer 3

个人认为，最好在程序的内部设定一个变量，存储的是要显示的日期，假定为X。而后需要在Label上显示的时候将其转换为需要的日期格式，需要判断年份的时候直接使用X进行判定。
至于是否是闰年，应该有很多现成的代码，例如，用YearOf（）函数可以获得日期X的所在年份，根据返回值使用IsLeapYear（）判断是否是闰年

Answer 4

来晚啦