該当の日付時点で該当者が何歳かを取得したいのですが

質問

Sub Macro1()
Dim dtm日付 As Date
Dim dtm誕生日 As Date
Dim i As Integer

dtm日付 = #10/1/2015#
dtm誕生日 = #7/1/1986#

i = dtm日付 - dtm誕生日

MsgBox "Aさんは" & dtm日付 & "の時点では、" & i & "才です。"

End Sub

こんな感じでVBAコードを作ってみたのですが
肝心の何歳かを算出する方法がわかりません。

回答No.8

山田 太郎（@f_a_007） · ベストアンサー

Sub Macro1()
　　Dim dtm日付 As Date
　　Dim dtm誕生日 As Date

　　dtm日付 = #10/1/2015#
　　dtm誕生日 = #7/1/1986#
　　MsgBox "Aさんは" & dtm日付 & "の時点では、" & GetAge(dtm誕生日,dtm日付) & "才です。"
End Sub

このように、普通は年齢計算関数を利用します。

Public Function GetAge(ByVal dteBirthday As Date, ByVal dteToday As Date) As Integer
　　Dim lngValue_1 As Long
　　Dim lngValue_2 As Long

　　dteToday = DateAdd("d", 1, dteToday)
　　lngValue_1 = Format(dteToday, "yyyy") * 10000 + Format(dteToday, "mm") * 100 + Format(dteToday, "dd")
　　lngValue_2 = Format(dteBirthday, "yyyy") * 10000 + Format(dteBirthday, "mm") * 100 + Format(dteBirthday, "dd")
　　GetAge = Fix((lngValue_1 - lngValue_2) / 10000)
End Function

お礼

ありがとうございました。

回答No.7

real beatin（@realbeatin）

＃２、３、５、６です。
何度も何度もすみません。
＃３のコードも閏日で弾かれてしまいますね。ゴメンナサイ。
徹夜仕事の合間不調だったこともあるけれど、余りにも散漫でした。
過去に書いた稼動中のコードと検証用のブックを浚って、
＃３と同趣旨のもので再検証しました。

最初に回答に着手した時には、もっとスマートなやり方があるような
錯覚があって、あれやこれや錯綜してしまいましたが、
結局、＃１さんのご回答で十分でしたね。
でもまぁ＃３での狙いに関しては、こちらの趣旨にも主張はあることですし、
比較する日付の取得方法によっては寧ろ応用が利く場合もあるという含みで、
参考程度に、正したものをあげておきます。
＃＃長、失礼しました。

一旦、
　それぞれの日付の'年'の差を求めておいて、
次に、
　誕生日と該当の日付の'月日'について、比較の為、
　閏年である"1996"年の'月日'として #10/1/1996# と #7/1/1996#
　を比較して、該当の日付が誕生日前なら'年'の差から1引く
というように年齢を求めます。

' ' ///

Sub Re9005618wE()
Dim dtm日付 As Date
Dim dtm誕生日 As Date
Dim i As Integer

　　dtm日付 = #10/1/2015#
　　dtm誕生日 = #7/1/1986#

　　i = Year(dtm日付) - Year(dtm誕生日)
　　If CDate("1996/" & Format(dtm誕生日, "m/d")) > CDate("1996/" & Format(dtm日付, "m/d")) Then i = i - 1

　　MsgBox "Aさんは" & dtm日付 & "の時点では、" & i & "才です。"

End Sub

' ' ///

お礼

ありがとうございました。

回答No.6

real beatin（@realbeatin）

あちゃ、また間違えてしまいました。すみません。
＃２に続いて＃５も正しく機能しませんので撤回します。失礼しました。

結局＃３のコードだけです。私のは。

お礼

ありがとうございました。

回答No.5

real beatin（@realbeatin）

＃２,３です。

はぁ。それではこちらも、現役のＶＢＡ関数を使った方法も追加で紹介しておきます。
ぐっと簡単に書けるのですが、私はあまり使わないですし、
特にお奨めもしていません。
計算の仕方の習得よりも、簡単に結果が得られる方法をお求め
ということでしたらば、こちらをどうぞ。

' ' ///

Sub Re9005618wf()
Dim dtm日付 As Date
Dim dtm誕生日 As Date
Dim i As Integer

　　dtm日付 = #7/1/2015#
　　dtm誕生日 = #7/1/1986#

　　i = DateDiff("yyyy", dtm誕生日, dtm日付)

　　MsgBox "Aさんは" & dtm日付 & "の時点では、" & i & "才です。"

End Sub

' ' ///

お礼

ありがとうございました。

回答No.4

kagakusuki

dtm日付の月日がその年の誕生日の前であるのか後であるのかという事を考えなくとも、DATEDIF関数を使えば一発で求める事が出来ます。

Sub QNo9005618_該当の日付時点で該当者が何歳かを取得したいのですが()
Dim dtm日付 As Date
Dim dtm誕生日 As Date
Dim i As Byte

dtm日付 = "10/1/2015"
dtm誕生日 = "7/1/1986"

If dtm日付 >= 1 And dtm誕生日 >= 1 Then
If dtm日付 >= dtm誕生日 Then
i = Evaluate("DATEDIF(""" & dtm誕生日 & """,""" & dtm日付 & """,""y"")")
MsgBox "Aさんは" & dtm日付 & "の時点では、" & i & "才です。", vbInformation, "年齢"
Else
MsgBox "指定された日付が誕生日よりも前の日付であるため年齢を計算できません。", vbExclamation, "無効な値"
End If
Else
MsgBox "日付が指定されていません。", vbExclamation, "データ無し"
End If

End Sub

お礼

ありがとうございました。

回答No.3

real beatin（@realbeatin）

＃２です。
錯覚があって誤った解答をしてしまいました。
＃２のコードは撤回します。

一旦、
　それぞれの日付の'年'の差を求めておいて、
次に、
　'月日'の大小を比較して、該当の日付が誕生日前なら'年'の差から1引く
というように年齢を求めます。

概念的には、よりわかり易いものになっているかと思います。

＃拙速なミスでご迷惑お掛けしました。すみません。

' ' ///

Sub Re9005618w()
Dim dtm日付 As Date
Dim dtm誕生日 As Date
Dim i As Integer

　　dtm日付 = #10/1/2015#
　　dtm誕生日 = #7/1/1986#

　　i = Year(dtm日付) - Year(dtm誕生日)
　　If CDate(Format(dtm誕生日, "m/d")) > CDate(Format(dtm日付, "m/d")) Then i = i - 1

　　MsgBox "Aさんは" & dtm日付 & "の時点では、" & i & "才です。"

End Sub

' ' ///

＃失礼しました。

お礼

ありがとうございました。

回答No.2

real beatin（@realbeatin）

こんにちは。

算出方法は、誕生日が来れば年をひとつ加える一般的なものだとして、
要点は、誕生日を迎えているかどうかの判別をどう反映させるか、
という一点になります。
色んな方法がありますけれど、比較的易しい方法で提示します。

' ' ///

Sub Try9005618w()
Dim dtm日付 As Date
Dim dtm誕生日 As Date
Dim i As Integer

　　dtm日付 = #10/1/2015#
　　dtm誕生日 = #7/1/1986#

　　i = Year(dtm日付 - Format(dtm誕生日 - 1, "y")) - Year(dtm誕生日)

　　MsgBox "Aさんは" & dtm日付 & "の時点では、" & i & "才です。"

End Sub

' ' ///

例示に副って説明すると、

　Year(dtm日付 - Format(dtm誕生日 - 1, "y"))
　　該当の日付 #10/1/2015#
　　　dtm日付　から
　　生年月日の月日 7/1 の一日前の日付 6/30 までの年次経過日数 181日
　　　Format(dtm誕生日 - 1, "y")を引いた日付の'年'を（Year()関数で）求める

　Year(dtm誕生日)
　　生年月日の'年'を（Year()関数で）求める

２つの年の差を求めたものが、該当の日付時の年齢、になります。

Date型のシリアル値について、
　内部的には数値であること、
　１日は、数値の１と同値であること、
を理解して貰えれば、
後は算数的に引き算するだけです。

Year()関数
Format()関数
　Format()関数の第２引数formatに指定する、年次経過日数を表す"y"
等についてはＶＢＡのヘルプやWeb検索等を参考に
どういうものなのか、そちらで確認してみてください。

以上です。

お礼

ありがとうございました。

回答No.1

noname#212058

「 i = dtm日付 - dtm誕生日」で計算しようとすると、「うるう日」の扱いが面倒なのでやめたほうが良いですよ。

If Month(dtm日付) < Month(dtm誕生日) Or (Month(dtm日付) = Month(dtm誕生日) And Day(dtm日付) < Day(dtm誕生日)) Then
　' まだ今年の誕生日が来ていない
　i = Year(dtm日付) - Year(dtm誕生日) - 1
Else
　' もう今年の誕生日が来た
　i = Year(dtm日付) - Year(dtm誕生日)
End If
MsgBox "Aさんは" & dtm日付 & "の時点では、" & i & "才です。"

お礼

ありがとうございました。