Question

delphi 程序查错

procedure TForm1.Button1Click(Sender: TObject);

begin
label2.Caption:=formatdatetime('yyyy-mm-dd',now);
label3.Caption:=formatdatetime('yyyy',now)+'-01-01';
label1.Caption:=datetostr(strtodate(formatdatetime('yyyy-mm-dd',now))-strtodate(formatdatetime('yyyy',now)+'-01-01'));

end;

请大侠们帮着看看这个程序为什么不能显示 但前是这一年的那一天 错误在哪里 应该怎么写呢

Answer 1

label1.Caption:=IntToStr(Trunc(strtodate(formatdatetime('yyyy-mm-dd',now))-strtodate(formatdatetime('yyyy',now)+'-01-01')));