Excel VBA質問箱 IV

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

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


19527 / 76732 ←次へ | 前へ→

【62635】Re:年齢表示の仕方
発言  Abebobo  - 09/8/18(火) 15:48 -

引用なし
パスワード
   '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 質問
【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 発言

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