アクセスのクエリの抽出条件について教えてください。

質問

アクセス2002

平成２０年１０月１日の時点で、３歳以下の人を抽出したいです。
フィールドは、氏名・年号・生年・月・日に分かれています。

クエリ

氏名　年号　生年　　月　　日
Ａ　　　平成　２０　　　２　　２０
Ｂ　　　平成　１７　　　９　　３０
Ｃ　　　平成　１７　　１０　　　１
Ｄ　　　平成　１７　　１０　　３１
Ｅ　　　平成　１８　　　５　　　５
Ｆ　　　平成　１９　　　４　　　７
Ｇ　　　平成　１７　　１１　　２０
Ｈ　　　平成　２０　　１０　　　１
Ｉ　　　　平成　１７　　９　　　２９

抽出したい人

氏名　年号　生年　　月　　日
Ａ　　　平成　２０　　　２　　２０
Ｃ　　　平成　１７　　１０　　　１
Ｄ　　　平成　１７　　１０　　３１
Ｅ　　　平成　１８　　　５　　　５
Ｆ　　　平成　１９　　　４　　　７
Ｇ　　　平成　１７　　１１　　２０
Ｈ　　　平成　２０　　１０　　　１

よろしくお願い致します。

回答No.2

noname#140971 · ベストアンサー

tab1: テーブル

[ID]_[氏名]_[年号]_[生年]_[月]_[日]
__1___A______平成_____10___10___10
__2___B______平成_____11___11___11
__3___C______平成_____12___12___12

クエリ1: クエリ

[ID]_[氏名]_[生年月日]
__1___A______1998/10/10
__2___B______1999/11/11
__3___C______2000/12/12

SELECT tab1.ID, tab1.氏名, CDATE([年号] & [生年] & "/" & [月] & "/" & [日]) AS 生年月日
FROM tab1;

クエリ2: クエリ

[ID]_[氏名]_[年号]_[生年]_[月]_[日]
__1___A______平成_____10___10___10
__2___B______平成_____11___11___11

SELECT *
FROM tab1
WHERE GetAge(Cdate([年号] & [生年] & "/" & [月] & "/" & [日]),CDATE("2005/10/1"))>4;

年齢そのものを抽出条件にするように GetAge関数で年齢を求めてみました。

[イミディエイト]
? GetAge(CDATE("2004/1/1"), CDATE("2004/12/31"))
0
? GetAge(CDATE("2004/1/1"), CDATE("2005/1/1"))
1
? GetAge(CDATE("2004/2/29"), CDATE("2005/2/27"))
0
? GetAge(CDATE("2004/2/29"), CDATE("2005/2/28"))
1
? GetAge(CDATE("2004/2/29"), CDATE("2005/3/1"))
1
? GetAge(CDATE("2004/2/29"), CDATE("2008/2/27"))
3
? GetAge(CDATE("2004/2/29"), CDATE("2008/2/28"))
3
? GetAge(CDATE("2004/2/29"), CDATE("2008/2/29"))
4

Public Function GetAge(ByVal Birthday As Variant, ByVal Hiduke As Variant) As Long
On Error GoTo Err_GetAge
　　If Month(Hiduke) = 12 Then
　　　　GetAge = DateDiff("yyyy", Birthday, Hiduke) + _
　　　　　　 (Format(Birthday - 1 - (Day(Birthday) = 1), "mm/dd") > Format(Hiduke - (Day(Birthday) = 1), "mm/dd"))
　　Else
　　　　GetAge = DateDiff("yyyy", Birthday, Hiduke) + _
　　　　　　　　 CDbl((Format(Birthday - (Day(Birthday) = 1), "mm.dd")) >= CDbl(Format(Hiduke + 1 - (Day(Birthday) = 1), "mm.dd")))
　　End If
Exit_GetAge:
　　Exit Function
Err_GetAge:
　　GetAge = -1
　　Resume Exit_GetAge
End Function

【注意】GetAge関数は、たった今修正したばかり。（多分、未だ、不完全かと思います！）
　　　　ですから、上記の僅かに８件のテストしか行っていません。
　　　　仮に利用される場合は自己責任でお願いします。

お礼

Husky2007様、親切な回答をありがとうございました。

Public Function GetAge
は大変参考になりました。

わざわざ作成して頂き助かりました。

回答No.1

nda23

条件は生年月日が平成17年10月1日以降ということですね。
条件式は以下の通りです。

CDate(年号 & 生年 & "/" & 月 & "/" & 日) >= #2005/10/1#

お礼

nda23様、回答をありがとうございます。

昨日も回答をして頂き、助かっています。
アドバイスを頂き「CDate関数」をネットで調べてみました。
分かりやすくて、使いやすいと思いました。