[[20070118152518]] 『明治33年前の生年月日を西暦に』(Ogawa) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『明治33年前の生年月日を西暦に』(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 


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.