Delphi與Java中的日期互換

在最近做的一個項目中用到了Java和Delphi，發現它們不能正確讀取對方的日期類型，如在Java中寫入一個值為“2007-12-1”的日期值，通過Delphi讀取卻不是這個值了。

  通過查閱資料，發現兩者對日期類型的定義略有不同。Java中日期使用的是長整型進行存儲的，它表示距“1970-1-1”的毫秒數。如“1970-1-2”是在“1970-1-1”後的86400000毫秒，所以Java中就使用86400000表示“1970-1-2”這個日期。由於長整型是帶符號的，所以我們可以使用負的毫秒數來表示在“1970-1-1”之前的日期。而Delphi中的日期則是使用雙精度類型進行存儲的，整數部分表示距“1899-12-30”的天數，小數部分表示小時。如“2.75”這個數值則表示“1900-1-1 6：00PM”，“-1.25”則表示“1899-12-29 6：00 AM”。

  由於兩者的日期類型的起始日期不一樣，即相同的“0”值在兩者中表示不同的日期。那麼在Java與Delphi之間進行日期值的通信時就需要進行一個轉換。

//將Java中的日期轉換為Delphi中的日期
function ConvertJavaDateTimeToDelphiDateTime(Value: Int64): TDateTime;
begin
   Result := IncMilliSecond(StrToDate(''1970-1-1''), Value);
end;

//將Delphi中的日期轉換為Java中的日期
function ConvertDelphiDateTimeToJavaDateTime(ADateTime: TDateTime): Extended;
begin
   Result := MilliSecondSpan(ADateTime, StrToDate(''1970-1-1''))
end;