3

Visual Basic 6に、ユリウス日文字列（ 99901- 1999年1月1日）をオブジェクトに変換するために使用できる関数はありDateますか？

使ってみCDate()ましたが、期待通りの結果が得られませんでした。

ありがとう。

4

1 に答える 1

4

次のように機能すると思います。ユリウス日をjd変数に入れるだけです。

Dim dt as Date 
Dim jd as Long
dt = DateSerial(1900 + Int(jd / 1000), 1, jd Mod 1000)
于 2011-01-18T11:16:40.003 に答える