delphi 天数倒计时

program Project1;

{$APPTYPE CONSOLE}

uses

  System.SysUtils, System.DateUtils;

var X: Tdate;

begin

  try

    { TODO -oUser -cConsole Main : Insert code here }

   x:=IncDay(IncMonth(now, 2), 0);

   WriteLn('Date: '+DateToStr(x));

   WriteLn('Days between: '+IntToStr(DaysBetween(x, now)));

   ReadLn;

  except

    on E: Exception do

      Writeln(E.ClassName, ': ', E.Message);

  end;

end.