如何在C#中模拟Delphi 2007 SecondsBetween函数？

Question

这是上一个问题的后续问题：之间的差异C# 与 Delphi 中的日期/时间计算

我正在将用 Delphi 编写的企业应用程序移植到 C#。该应用程序使用非常基本的加密形式来存储它生成的文本文件。这种加密基于 Delphi SecondsBetween 命令，该命令返回两个日期之间的秒数。

对我来说，问题是在旧版本的 Delphi（我从中移植的版本）中，SecondsBetween 命令存在一个错误，导致它返回相差 1 的值 - 但只有大约 50%该

错误是一个舍入错误。 Delphi 最初使用 Trunc 而不是 Round。在此处查看更多详细信息 - http://qc.embarcadero.com/wc/qcmain .aspx?d=59310

这是演示问题的代码：

Delphi:

SecondsBetween(StrToDateTime('16/02/2009 11:25:34 p.m.'), StrToDateTime('1/01/2005 12:00:00 a.m.'));

130289133

C#:

TimeSpan span = DateTime.Parse("16/02/2009 11:25:34 p.m.").Subtract(DateTime.Parse("1/01/2005 12:00:00 a.m."));

130289134

我想做的是弄清楚如何模拟这种错误行为在 C# 中，以便我可以读取/写入由 Delphi 应用程序编写的文本文件。

Answer 1

这是复制 Delphi 2007 SecondsBetween 所需函数（SpanOfNowAndThen、SecondSpan）的翻译 函数。

using System;
using System.Text;

namespace D2007SecondsBetween
{
    class Program
    {
      const double HoursPerDay   = 24;
      const double MinsPerHour   = 60;
      const double SecsPerMin    = 60;
      const double MSecsPerSec   = 1000;
      const double MinsPerDay    = HoursPerDay * MinsPerHour;
      const double SecsPerDay    = MinsPerDay * SecsPerMin;

        static double SpanOfNowAndThen(Double ANow, Double AThen)
        {
          if (ANow < AThen)
            return AThen - ANow;
          else
            return ANow - AThen;
        }


        static double SecondSpan(Double ANow, Double AThen)
        {
         return  SecsPerDay * SpanOfNowAndThen(ANow, AThen);
        }

        static int SecondsBetween(DateTime ANow, DateTime AThen)
        {
          return (int)Math.Truncate(SecondSpan(ANow.ToOADate(), AThen.ToOADate()));
        }

        static void Main(string[] args)
        {
            TimeSpan span ;            
            span = DateTime.Parse("16/02/2009 23:25:34").Subtract(DateTime.Parse("1/01/2005 00:00:00"));
            Console.WriteLine(span.TotalSeconds);//returns 130289134
            Console.WriteLine(SecondsBetween(DateTime.Parse("16/02/2009 23:25:34"), DateTime.Parse("1/01/2005 00:00:00")));//returns 130289133

            span = DateTime.Parse("16/11/2011 23:25:43").Subtract(DateTime.Parse("1/01/2005 00:00:00"));
            Console.WriteLine(span.TotalSeconds);//returns 216948343
            Console.WriteLine(SecondsBetween(DateTime.Parse("16/11/2011 23:25:43"), DateTime.Parse("1/01/2005 00:00:00")));//returns 216948343

            Console.ReadKey();
        }
    }
}

Answer 2

我认为在您的情况下，我只需将有问题的 Delphi 例程编译成 DLL 并使用 p/invoke 从 C# 调用它。我将在计算之前添加一个调用来设置 8087 控制字，并在计算之后将其恢复为调用者值。这将是我能想到的风险最低的方法。

Answer 3

人为地为要减去的项（右侧）添加 0.5 秒，然后将 TimeSpan.TotalSeconds 截断为 int 值怎么样？也许这会起作用：

int BuggySecondsBetween(DateTime left, DateTime right)
{
    TimeSpan actual = left - right;
    TimeSpan buggyResult = actual - TimeSpan.FromSeconds(0.5d);
    return (int)buggyResult.TotalSeconds;
}

Answer 4

业务风险听起来非常高，不幸的是，Delphi 提供的有关此错误内部行为方式的信息一无是处。用 C# 编写和单元测试补偿方法并不能保证始终缓解该问题。

除非知识渊博的人提供具体细节，否则您是否可以使用版本 15.0.3729.28755（包含错误修复）重新编译并推出您的原始 Delphi 应用程序？

另一种可能性是“大爆炸”推出 C# 端口以完全取代 Delphi 端口，尽管这在培训和员工支持方面可能会带来更大压力。

祝你好运——这是一个棘手的问题。