在VB中转换Julian Days

Question

我需要将一组Julian Days转换为正确的日期时间格式dd / mm / yyyy HH：MM：SS

问题似乎是他们是某个日期的朱利安日，我假设1970年的标准？以下是我的代码：

功能：

    Public Function ConvertJulianDate(ByVal JulianDate As Double) As DateTime
    Dim julianRoot As DateTime


    julianRoot = "01/01/1970 00:00:00"

    ConvertJulianDate = julianRoot.AddDays(JulianDate)

    End Function

致电（我现在硬编码了一个值）：

     Dim result As DateTime
     Dim JulianDate As Double
     JulianDate = 140.708368

     result = Utilities.ConvertJulianDate(JulianDate)

这给了我“5/21/1970 5:00:02 PM”的价值

似乎这一年过去了，因为我知道这些数据来自2011年。任何人都可以指导我吗？

Answer 1

经过对Julian Date格式的一系列研究后，我意识到我需要知道正确的julianRoot - 如果没有与Julian Day相关的纪元，那么年份的价值就没用了。