Question

我正在将一个Delphi应用程序移植到C＃，我遇到了一个问题。 Delphi应用程序将时间记录到日志文件中，然后将其读回程序。但它记录的时间格式让我困惑。我找不到.Net库来正确转换它。

Delphi在日志文件中记录时间：976129709 （这将在Delphi代码中转换为1/14/2009 5:53:26 PM）

//Here is the Delphi code which records it: 
IntToStr(DirInfo.Time);

//Here is the Delphi code which reads it back in:
DateTimeToStr(FileDateToDateTime(StrToInt(stringTime));

任何人都有任何想法，我怎么能在.Net中读到这个？

Answer 1

Delphi的TSearchRec.Time格式是旧的DOS 32位日期/时间值。据我所知，它没有内置的转换器，所以你必须写一个。例如：

public static DateTime DosDateToDateTime(int DosDate)
{
     Int16 Hi = (Int16)((DosDate & 0xFFFF0000) >> 16);
     Int16 Lo = (Int16)(DosDate & 0x0000FFFF);

     return new DateTime(((Hi & 0x3F00) >> 9) + 1980, (Hi & 0xE0) >> 5, Hi & 0x1F,
        (Lo & 0xF800) >> 11, (Lo & 0x7E0) >> 5, (Lo & 0x1F) * 2);
}

Answer 2

Here is description of different date/time formats（Delphi的原生TDateTime是OLE自动化日期格式）。根据这一点，您需要System.DateTime.FromFileTime()和System.DateTime.ToFileTime() + DosDateTimeToFileTime()和FileTimeToDosDateTime()函数。实际上，这是两步转换。

Answer 3

我尝试了谷歌搜索和实验，从虚拟代码开始，找到类似于unix时代的东西。

  var x = 976129709;
  var target = new DateTime(2009, 1, 14, 17, 53, 26);
  var testTicks = target.AddTicks(-x);     // 2009-01-14 17:51:48
  var testMs = target.AddMilliseconds(-x); // 2009-01-03 10:44:36
  var testS = target.AddSeconds(-x);       // 1978-02-08 22:44:57
  // No need to check for bigger time units
  // since your input indicates second precision.

您能否确认输入是否正确？

对于Flying Spaghetti Monster的爱，放弃你的12小时时间格式！ ;）

需要帮助将Delphi时间转换为.Net时间

3 个答案: