delphi - 当前时间值(in.Now())与 Julian Date To DateTime() 一起使用？

Question

我正在尝试将 Now() 返回的值转换为 double ，然后在不同的函数中使用它，即。

procedure TForm1.FormCreate(Sender: TObject);
begin
    MyFunction_1(Now);
end;

procedure MyFunction_1(TheTime : Double);
begin
    MyFunction_2(TheTime);
end;

procedure MyFunction_1(ModificationDate : Double);
begin
    if JulianDateToDateTime(ModificationDate) < 12345 then
       ...
end;

但问题是，当前时间值没有正确传递。对 JulianDateToDateTime(Now); 的简单测试返回如下内容:

0/0/0000 16:10:16

我很确定这是非常基本的东西，我只是不知道它是什么

请问有什么帮助吗？!!

Answer 1

你这是在倒退。 :-)

JulianDateToDateTime 采用儒略日期作为参数并返回 TDateTime。它不使用 TDateTime 作为参数；这就是你得到错误结果的原因。我认为您的意思是走另一条路(DateTimeToJulianDate)。

来自德尔福文档:

Call JulianDateToDateTime to convert a Julian date to the corresponding TDateTime value

Call DateTimeToJulianDate to convert a TDateTime value into the corresponding Julian date.

这是一个显示差异的快速示例:

uses DateUtils;

procedure TForm2.FormShow(Sender: TObject);
var
  TodaysDate: TDateTime;
  JDate: TDateTime;
begin
  TodaysDate := Date;
  JDate := DateTimeToJulianDate(TodaysDate);
  ShowMessage('Today: ' + FloatToStr(TodaysDate) + #13 +
              'JDate: ' + FloatToStr(JDate) );
end;

这是输出:

请注意，再添加一个 TDateTime 类型的变量并尝试使用 JulianDateToDateTime 会引发范围异常:

BadDate: TDateTime;
...

BadDate := JulianDateToDateTime(TodaysDate);   // raises exception