ユリウス日の求め方

質問

Excelでユリウス日の求め方を知りたいです。
例としてA1セルに日付(2000/1/1) B1セルに時刻(12:00)と入れてC1にユリウス日が
出る計算式を教えてもらえませんでしょうか。

よろしくお願いします。

回答No.1

kagakusuki · ベストアンサー

下記のサイト

【参考URL】
　国立天文台 > 暦計算室 > 暦象年表 > ユリウス日 > > > >
　　http://eco.mtk.nao.ac.jp/cgi-bin/koyomi/cande/date2jd.cgi

を利用して計算させた結果、日本時間における1904年1月1日の午前0時丁度のユリウス通日は2416480.12500日という事でしたので、例えばA1セルに

2001/1/1 12:00

という具合に日時のデータが入力されていた場合のユリウス通日を求める関数は、次の様なものとなります。

=IF(AND(LEFT(CELL("format",A1),1)="D",ISNUMBER(1/(SUM(A1)>1))),A1-"1904/1/1"+2416480.125,"")

となります。
　又、例えばA1セルに

2001/1/1

という具合に日付のデータが入力されていて、B1セルに

12:00

という具合に時刻のデータが入力されていた場合のユリウス通日を求める関数は、次の様なものとなります。

=IF(AND(LEFT(CELL("format",A1),1)="D",INT(SUM(A1))=A1,SUM(A1)>1,LEFT(CELL("format",B1),1)="D",ISNUMBER(B1),SUM(B1)>0,SUM(B1)<2),A1+B1-"1904/1/1"+2416480.125,"")