1

ユリウス日を適切な日時形式に変換する必要があります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)

これにより、「1970年5月21日午後5時2分」という値が得られます。

データは2011年のものであることがわかっているので、今年はオフになっているようです。誰かが私を案内してくれますか？

4

1 に答える 1

0

ユリウス日形式に関する一連の調査の後、正しい julianRoot を知る必要があることに気付きました。ユリウス日に関連するエポックがなければ、Year の値は役に立ちません。

于 2012-06-27T08:18:48.160 に答える