Excelで和暦の日付（数字のみ）を西暦に変換した

質問

Excel2016を使用しています。

表には和暦で数字のみ
520220　←昭和52年2月20日

これを
西暦の日付に直したいです。
1977/02/20

月日で１桁のところは上記のように頭に 0　を入れて２桁にしたいです。

回答No.3

Chiquilin · ベストアンサー

昭和限定でいいなら

=TEXT(A1+19250000,"0-00-00")-0
表示形式をユーザー定義で「yyyy/mm/dd」

お礼

ありがとうござます！これで解決しました！

回答No.4

aokii

セルの書式設定でユーザー定義のG/標準をyyyy/mm/ddに変更してOKをクリックしてみて下さい。

補足

520220のセルの書式、ユーザ定義をyyyy/mm/ddにしたところ、
3324/4/23 になりました。

回答No.2

NuboChan

例えば、

|[A] |[B]
[1]|520220|=ConvertToAD(A1) 1977/02/20

B1のセル書式設定＞ユーザー定義＞yyyy/mm/dd

Function ConvertToAD(wareki As String) As Date

Dim year As Integer
Dim month As Integer
Dim day As Integer

year = Left(wareki, 2) + 1925
month = Mid(wareki, 3, 2)
day = Right(wareki, 2)

ConvertToAD = DateSerial(year, month, day)

End Functio

回答No.1

hiro_1116

和暦は全てが昭和で、桁数は6桁に揃っているのでしょうか？

補足

和暦の桁数は全部昭和で数字６桁で統一されています。