5

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

伪代码示例

SetNewTime(NOW,2);

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

4

5 回答 5

5

下面是一个适合我的完整命令行程序。在 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.
于 2008-10-07T19:48:45.400 回答
3

IncMonth 应该与TDateTime一起使用：

function IncMonth ( const StartDate  : TDateTime {; NumberOfMonths  : Integer = 1} ) : TDateTime;

请记住，TDate 实际上只是一个 TDateTime，按照惯例，您会忽略上面的分数。

于 2008-10-07T20:46:14.690 回答
1

根据您的伪代码：

procedure SetNewTime(aDateTime: TDateTime; aMonths: Integer);
var
  lSystemTime: TSystemTime;
begin
  DateTimeToSystemTime(aDateTime, lSystemTime);
  Inc(lSystemTime.wMonth, aMonths);
  setSystemTime(lSystemTime);
end;
于 2008-10-07T19:57:22.247 回答
1

setSystemTime 使用 UTC 时间，因此您必须根据您的时区进行调整。偏差是您的机器时区与 UTC 不同的分钟数。这会在我的系统上正确调整日期：

procedure SetNewTime(aDateTime: TDateTime; aMonths: Integer);
var
  lSystemTime: TSystemTime;
  lTimeZone: TTimeZoneInformation;
 begin
  GetTimeZoneInformation(lTimeZone);
  aDateTime := aDateTime + (lTimeZone.Bias / 1440);
  DateTimeToSystemTime(aDateTime, lSystemTime);
  Inc(lSystemTime.wMonth, aMonths);
  setSystemTime(lSystemTime);
end;
于 2008-10-07T22:40:11.857 回答
0

没有足够的信息来为您的问题提供明确的答案。

考虑一下如果当前月份的某一天在未来的月份中不存在，您希望发生什么。比如说，1 月 31 日 + 1 个月。（一年中的 7 个月有 31 天，其余的则更少。）如果您增加年份并且开始日期是闰年的 2 月 29 日，您会遇到同样的问题。所以不可能有一个通用的 IncMonth 或 IncYear 函数在所有日期都一致地工作。

对于任何有兴趣的人，我衷心推荐Julian Bucknall关于如何计算两个日期之间的月数和天数的此类计算所固有的复杂性的文章。

以下是唯一可能不会将异常引入通用日期数学的通用日期增量函数。但它只能通过将责任转回给可能具有他/她正在编程的特定应用程序的确切要求的程序员来实现这一点。

IncDay - 添加或减去天数。
IncWeek - 增加或减少周数。

但是，如果您必须使用内置函数，那么至少要确保它们执行您希望它们执行的操作。查看 DateUtils 和 SysUtils 单位。拥有这些函数的源代码是 Delphi 最酷的方面之一。话虽如此，这里是内置函数的完整列表：

IncDay - 添加或减去天数。
IncWeek - 增加或减少周数。
IncMonth - 加或减月数。
IncYear - 添加或减去若干年。

至于您问题的第二部分，如何使用 TDatetime 设置系统日期和时间，一旦您拥有具有您想要的值的 TDatetime，以下从另一篇帖子中无耻窃取的代码将完成这项工作：

procedure SetSystemDateTime(aDateTime: TDateTime);
var
  lSystemTime: TSystemTime;
  lTimeZone: TTimeZoneInformation;
 begin
  GetTimeZoneInformation(lTimeZone);
  aDateTime := aDateTime + (lTimeZone.Bias / 1440);
  DateTimeToSystemTime(aDateTime, lSystemTime);
  setSystemTime(lSystemTime);
end;
于 2008-10-09T00:48:17.090 回答