2

我正在尝试将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

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

请问有什么帮助吗？！！

4

2 回答 2

5

你是在倒退。:-)

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

来自德尔福文档：

调用 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;

这是输出：

JulianDateToDateTime 示例

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

BadDate: TDateTime;
...

BadDate := JulianDateToDateTime(TodaysDate);   // raises exception
于 2012-06-03T19:18:05.973 回答
2

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

TDateTime = type Double;

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

DateTimeToJulianDate(Now)
于 2012-06-03T19:26:36.103 回答