delphi - 更改今天的日期，提前一个月并设置系统时间

Question

我想要一个函数的代码示例，该函数采用 tDateTime 和整数作为输入，并在将 tDateTime 提前 (int) 个月后使用 setlocaltime 设置系统时间。时间应该保持不变。

伪代码示例

SetNewTime(NOW,2);

我遇到的问题相当令人沮丧。我不能使用 incmonth 或类似的 tDateTime，只能使用 tDate 等。

Answer 1

下面是一个适合我的完整命令行程序。在Delphi 5和2007中测试。为什么说IncMonth不适用于 TDateTime？

program OneMonth;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows,
  Messages;

procedure SetLocalSystemTime(settotime: TDateTime);
var
  SystemTime : TSystemTime;
begin
  DateTimeToSystemTime(settotime,SystemTime);
  SetLocalTime(SystemTime);
  //tell windows that the time changed
  PostMessage(HWND_BROADCAST,WM_TIMECHANGE,0,0);
end;

begin
  try
    SetLocalSystemTime(IncMonth(Now,1));
  except on E:Exception do
    Writeln(E.Classname, ': ', E.Message);
  end;
end.