Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

19524 / 76732

←次へ　｜　前へ→


	【62638】Re:年齢表示の仕方

夏子 - 09/8/18(火) 18:41 -


	引用なし

	パスワード

▼Abebobo さん：

ありがとうございます。
思ったより簡素なｽﾃｰﾄﾒﾝﾄで和暦を計算出来ることに驚いています。

ただ時間間隔が"年単位"で求めるようですね。これにはやはりIfｽﾃｰﾄﾒﾝﾄで"月、日"を判断し"0"または"-1"を代入するような方法しかないのでしょうか？
ご存知でしたら再度、ご教授ください。

>'A1　に　昭和
>'B1　に　43
>'C1　に　6
>'D1　に　1
>'が記入されている場合
>
>Sub Keisan()
>Dim Birth As Date
>Birth = DateValue(Range("A1").Value & _
>　　　　　　　　　Range("B1").Value & "年" & _
>　　　　　　　　　Range("C1").Value & "月" & _
>　　　　　　　　　Range("D1").Value & "日")
>MsgBox DateDiff("yyyy", Birth, Now()) & "歳です"
>　　　　　　　　
>End Sub

1 hits

▼

【62631】年齢表示の仕方 夏子 09/8/17(月) 17:24