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

0 hits

【62631】年齢表示の仕方 夏子 09/8/17(月) 17:24 質問
【62632】Re:年齢表示の仕方 neptune 09/8/17(月) 17:41 回答
【62634】Re:年齢表示の仕方 夏子 09/8/18(火) 15:00 質問
【62635】Re:年齢表示の仕方 Abebobo 09/8/18(火) 15:48 発言
【62638】Re:年齢表示の仕方 夏子 09/8/18(火) 18:41 お礼
【62636】Re:年齢表示の仕方 neptune 09/8/18(火) 17:11 発言
【62640】Re:年齢表示の仕方 夏子 09/8/18(火) 18:51 お礼
【62641】Re:年齢表示の仕方 Abebobo 09/8/18(火) 19:38 発言
【62645】Re:年齢表示の仕方 夏子 09/8/19(水) 7:23 お礼
【62647】Re:年齢表示の仕方 Yuki 09/8/19(水) 8:50 発言

19524 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free