vb.net - 在 VB 中转换儒略日

Question

我需要将一组儒略日转换为正确的日期时间格式 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 相关的纪元，那么 Year 的值是无用的。