Excel VBA質問箱 IV

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

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


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

44151 / 76732

←次へ　｜　前へ→


	【37602】Re:DateDiffで年齢算出

ハト - 06/5/12(金) 18:20 -


	引用なし

	パスワード

Jaka さん

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

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

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

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

'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