Excel でユリウス日を変換する方法

ユリウス日は 5 桁のコードを使用します。最初の 2 桁は年を表し、最後の 3 桁は日を表します。 Excel 2013 はこの形式を直接認識しないため、計算を実行するにはユリウス日を通常の暦日に変換する必要があります。数式を使用してユリウス日から適切なデータを抽出し、予想される日付形式に再フォーマットします。

ステップ 1

ユリウス日を入力するセルを強調表示し、[ホーム] タブの [数値] グループにある [数値の形式] ドロップダウン メニューをクリックして、[テキスト] を選択します。これにより、入力されたデータがテキストとして Excel に認識されます。

ステップ 2

2000 年 1 月 1 日を表す "00001" のように、先行ゼロを含めて 5 桁の完全なユリウス日付を入力します。セルをテキストとして書式設定したため、Excel は先行ゼロを保持します。一般または数値形式を使用した場合、Excel は先頭のゼロを削除するため、データはユリウス形式ではなくなります。

ステップ 3

数式「=Date(If(0+(Left(A1,2))<30,2000,1900)+Left(A1,2),1,Right(A1,3))」を空のセルに引用符なしで入力します. "A1" 参照を変更して、ユリウス日を含むセルを反映させます。

ヒント

一部のデータベースでは、最初の 4 桁が年を表す元のユリウス形式の 7 桁のバリエーションを使用しています。セル A1 の 7 桁のユリウス日付を変換するには、数式 "=Date(Left(A1,4),1,Right(A1,3))" を使用します。

ユリウス日付の列形式のリストがある場合は、数式を数式列にコピーして、各日付を自動的に変換します。

元のユリウス日を削除するには、まず、変換された値から数式を削除する必要があります。変換された日付を含むセルを強調表示し、[Ctrl-C] を押して、[ホーム] タブの [クリップボード] グループの [貼り付け] ドロップダウン メニューをクリックし、[値を貼り付け] オプションを選択して、数式に値を貼り付けます。その後、変換された値に影響を与えずにユリウス日を削除できます。

警告

Excel は 1900 年 1 月 1 日から始まる日付を内部的にインクリメントし、負の日付番号を許可しないため、広範な Microsoft Visual Basic コードを使用しないと、この開始値より前のユリウス日付を正しく変換できません。