Excel VBA質問箱 IV

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

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


44154 / 76735 ←次へ | 前へ→

【37602】Re:DateDiffで年齢算出
発言  ハト  - 06/5/12(金) 18:20 -

引用なし
パスワード
   Jaka さん

>>おはようございます
>って、06/5/12(金) 14:32 の時間で...。(^_^

いやあ、癖ですねえ
真夜中でも書込みとかには「おはようございます」って使ってます(^^;


>角田さんの「満年数」「満月数」を見て、年齢って満やら数えって良く解らないのもあるんだよなぁ〜。とため息。

まあ、普通に年齢って言うと、下のような感じですねw

'DAY1:生年月日
'DAY2:当日

st = Datediff("yyyy",DAY1,DAY2)

'今年の誕生日
DAY3 = DateAdd("yyyy",st,DAY1)

Select Case DAY3
  Case IS < DAY2
     '今年の誕生日は過ぎた
  Case IS > DAY2
     '今年の誕生日はまだ
     st = st - 1
  Case IS = DAY2
     '誕生日おめでとう!
END Select

0 hits

【37577】DateDiffで年齢算出 Jaka 06/5/12(金) 13:47 質問
【37583】Re:DateDiffで年齢算出 ハト 06/5/12(金) 14:32 回答
【37584】Re:DateDiffで年齢算出 角田 06/5/12(金) 14:47 回答
【37592】Re:DateDiffで年齢算出 Jaka 06/5/12(金) 16:38 お礼
【37602】Re:DateDiffで年齢算出 ハト 06/5/12(金) 18:20 発言

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