[[20070118152518]]　『明治３３年前の生年月日を西暦に』（Ogawa）　ページの最後に飛ぶ

『明治３３年前の生年月日を西暦に』（Ogawa）

A1 にM23/5/12 　　B1 に1889/5/12 と表示したい。

関数があるものでしょうか。

Excel 2000 Windows Xp

 Altを押しながらF11キー。VBE起動。
挿入＞標準モジュール　として標準モジュール作成。
右側のコードウィンドウへ下記コード貼り付け。
Alt押しながらQキーでExcelへ戻る。
　
 Function JP2WD(ByVal Num As String) As String
    Num = Format(Num, "yyyy/m/d")
    JP2WD = Num
 End Function
　
A1に　M23/5/12　とあったら、　B1　=jp2wd(A1)　と入力。
結果は「1890/5/12」なので、例示と違いますが・・・。
　
（注）
この関数ではM33/1/1～M33/2/29 の計算で一日の誤差が出る。
1899/12/31～1900/2/28になる。
シリアル値、M33/2/29は実在しない日付のため。
また、結果が文字列のため、計算には直接使えません。
　
【参考】
[[20040109220943]] 『平成壱五年壱弐月参壱日と表示させるには』（アットホーム）
(みやほりん)(-_∂)b

コメント返信：

[ 一覧(最新更新順) ]

[[20070118152518]] 『明治３３年前の生年月日を西暦に』（Ogawa） ページの最後に飛ぶ

[[20070118152518]]　『明治３３年前の生年月日を西暦に』（Ogawa）　ページの最後に飛ぶ