Delphi显示TDateTime为负值的操作的奇怪结果
我们在Delphi中有一个解决方案，可以计算给定车辆的行程持续时间，例如20分钟、25分钟等等。但是，有时我们必须提前预约旅行的开始时间，从特定的日期时间开始，例如09:00到08:40。然后，我们需要从TDateTime变量（travel’s start）中减去一个负值，在本例中，类似于“-00:20”。为此，我们将datetime值乘以-1（例如MyDiffDateTimeVariable*-1）。我们得到的输出非常奇怪，有时我们得到完全相反的行为。在另一种情况下，提取20分钟的操作会导致与原始日期时间相差两天 下面是一个示例控制台应用程序，它模拟了我们的情况、当前输出以及我们预期的结果：Delphi显示TDateTime为负值的操作的奇怪结果,datetime,delphi,Datetime,Delphi,我们在Delphi中有一个解决方案，可以计算给定车辆的行程持续时间，例如20分钟、25分钟等等。但是，有时我们必须提前预约旅行的开始时间，从特定的日期时间开始，例如09:00到08:40。然后，我们需要从TDateTime变量（travel’s start）中减去一个负值，在本例中，类似于“-00:20”。为此，我们将datetime值乘以-1（例如MyDiffDateTimeVariable*-1）。我们得到的输出非常奇怪，有时我们得到完全相反的行为。在另一种情况下，提取20分钟的操作会导致与
program DateTimeSample;
uses
System.SysUtils, System.DateUtils;
var
LDate1: TDateTime;
LDate2: TDateTime;
begin
LDate1 := IncMinute(0, 20);
LDate2 := IncMinute(0, -20);
WriteLn('Date1: ' + DateTimeToStr(LDate1));
// Output = Date1: 30/12/1899 00:20:00 [OK]
WriteLn('Date2: ' + DateTimeToStr(LDate2));
// Output = Date2: 29/12/1899 23:40:00 [OK]
WriteLn('-----');
WriteLn('Date1: ' + DateTimeToStr(LDate1 * -1));
// Output = Date1: 30/12/1899 00:20:00 [Expected 29/12/1899 23:40:00]
WriteLn('Date2: ' + DateTimeToStr(LDate2 * -1));
// Output = Date2: 31/12/1899 23:40:00 [Expected 30/12/1899 00:20:00]
ReadLn;
end.
编译器在对TDateTime执行数字运算时，似乎总是将其视为正数。试试这个：
uses
System.SysUtils, System.DateUtils;
function InvertDate(ADateTime: TDateTime): TDateTime;
var
LMsec: Int64;
begin
LMsec := MillisecondsBetween(ADateTime, 0); //Always Positive
if ADateTime > 0 then
LMsec := 0 - LMsec;
Result := IncMillisecond(0, LMsec);
end;
var
LDate1: TDateTime;
LDate1Negative: TDateTime;
LDate2: TDateTime;
begin
try
LDate1 := IncMinute(0, 20);
LDate2 := IncMinute(0, -20);
WriteLn('Date1: ' + DateTimeToStr(LDate1));
// Output = Date1: 30/12/1899 00:20:00 [OK]
WriteLn('Date2: ' + DateTimeToStr(LDate2));
// Output = Date2: 29/12/1899 23:40:00 [OK]
WriteLn('-----');
WriteLn('Date1: ' + DateTimeToStr( InvertDate(LDate1) ));
// Output = Date1: Expected 29/12/1899 23:40:00
WriteLn('Date2: ' + DateTimeToStr( InvertDate(LDate2) ));
// Output = Date2: 30/12/1899 00:20:00
ReadLn;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
当检查转换为double的值时，可以看到： 双精度（LDate1）=0.013888889 双（LDate2）=-1.9861111111111 对我来说似乎是个bug，因为今天它又回来了： 双精度（LDate1）=43168013888889 双精度（LDate2）=43167986111111 编辑：嗯，根据，这不是一个bug，这是一个特性：-） 使用负值
TDateTimeTDateTimeTDateTimeDoubleDoubleSysUtilsDateUtilsTDateTimeIntegerInt64Doublevar
LStartTime, LEndTime: TDateTime;
LDuration_Mins: Integer;
begin
{ Init sample values for each calculation }
LStartTime := EncodeDateTime(2018, 3, 9, 8, 40, 0, 0);
LEndTime := EncodeDateTime(2018, 3, 9, 9, 0, 0, 0);
LDuration_Mins := 20;
{ Output result of each calculation }
Writeln(Format('Whole Duration: %d', [MinutesBetween(LStartTime, LEndTime)]));
Writeln(Format('Frac Duration: %.6f', [MinuteSpan(LStartTime, LEndTime)]));
Writeln(Format('Start Time: %s', [FormatDateTime('yyyy-mm-dd hh:nn:ss', IncMinute(LEndTime, -LDuration_Mins))]));
Writeln(Format('End Time: %s', [FormatDateTime('yyyy-mm-dd hh:nn:ss', IncMinute(LStartTime, LDuration_Mins))]));
end;
其他考虑事项 你说你在处理车辆行驶时间。如果你在处理长途旅行，你可能会考虑其他一些事情
- 夏令时：如果车辆在DST更改前不久开始行驶，并在DST更改后结束，则在计算缺失值时需要考虑这一点。也许最简单的方法是将日期时间值转换为UTC进行计算。这导致
- 时区更改：同样，除非您的代码意识到时区，否则您肯定会出错
TDateTimeIncMinute（0,20）-0.0138891899-12-30 00:20:00TDateTimeIncMinute（0，-20）0.0138891899-12-30 00:20:00IncDay（IncMinute（EncodeDate（1899，12，30），20））1899-12-30 23:40:001899-12-31 00:20:00Date+NumberOfDays