与 Julian Date To DateTime() 一起使用的当前时间值（in.Now()）？答案

【问题标题】：Value of current time (ie. Now()) to be used with JulianDateToDateTime()?与 Julian Date To DateTime() 一起使用的当前时间值（in.Now()）？
【发布时间】：2012-06-03 18:57:52
【问题描述】：

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

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

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

请帮忙？！！

【问题讨论】：

对于JulianDateToDateTime，您应该提供儒略日期并将其转换为DateTime 值。我想你想改用DateTimeToJulianDate。

标签： delphi delphi-2010 vcl

【解决方案1】：

你在倒退。 :-)

JulianDateToDateTime 将儒略日期作为参数并返回 TDateTime。它不以 TDateTime 作为参数；这就是为什么你得到错误的结果。我想你的意思是走另一条路 (DateTimeToJulianDate)。

来自 Delphi 文档：

调用 JulianDateToDateTime 将儒略日期转换为相应的 TDateTime 值

调用 DateTimeToJulianDate 将 TDateTime 值转换为对应的儒略日期。

下面是一个显示差异的快速示例：

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

【讨论】：

【解决方案2】：

Now() 返回一个TDateTime 时间戳，它是一个Double，在System 单元中定义：

TDateTime = type Double;

如果要将其转换为儒略日期，则需要将其输入到DateTimeToJulianDate：

DateTimeToJulianDate(Now)

【讨论】：