今天在開發系統的時候，需要實現這樣一個功能
根據選中的日期，查詢相關的內容，但不是按照整個日期去過濾，而是根據，年，月，日拆分的形式去過濾，比如2013年的，2月份的
在sqlserver中，我們可以可以直接根據datePart去完成即可
select * from pays where 1=1 and datepart(year, pdate)=2013 and datepart(month, pdate)=2 and datepart(day, pdate)=26 order by pdate
但是在access中卻通不過，因為方法有些不一樣，需要這樣寫
select * from pays where 1=1 and datepart("yyyy", pdate)=2013 and datepart("m", pdate)=2 and datepart('d', pdate)=21 order by pdate
關於sqlserver的函數在前面說到了，現在把access的日期函數總結一下
如何將文本型：2003.08.04 轉換為日期型：2003-08-04
cdate(replace("2003.08.04",".","-"))
顯示當前日期在該年中所處的星期號
=Format(Now(), "ww")
ww 為 1 到 53。
顯示日期字段值的四位年份值。
=DatePart（"yyyy", [訂購日期]）
顯示日期字段值前 10 天的日期值。
=DateAdd（"y", -10, [應付日期]）
顯示日期字段值前一個月的日期值。
=DateAdd("m",-1,Date())
顯示日期1和日期2之間相差的天數。
=DateDiff（"d", [訂購日期], [發貨日期]）
從今天算起到三個月後的日期之間的記錄。
Betweeb date() and adddate(3,date())
根據出生日期計算年齡（周歲）
=IIf(Month(Date())-Month([出生年月日])>-1,Year(Date())-Year([出生年月日]),Year(Date())-Year([出生年月日])-1)
自定義日期/時間格式 (Format 函數)
(:) 時間分隔符。在一些區域，可能用其他符號來當時間分隔符。格式化時間值時，時間分隔符可以分隔時、分、秒。時間分隔符的真正字符在格式輸出時取決於系統的設置。
(/) 日期分隔符。在一些區域，可能用其他符號來當日期分隔符。格式化日期數值時，日期分隔符可以分隔年、月、日。日期分隔符的真正字符在格式輸出時取決於系統設置。
C 以 ddddd 來顯示日期並且以 ttttt 來顯示時間。如果想顯示的數值無小數部分，則只顯示日期部分，如果想顯示的數值無整數部分，則只顯示時間部分。
D
以沒有前導零的數字來顯示日 (1 – 31)。
Dd
以有前導零的數字來顯示日 (01 – 31)。
ddd
以簡寫來表示日 (Sun –Sat)。
dddd
以全稱來表示日 (Sunday –Saturday)。
ddddd
以完整日期表示法顯示（包括年、月、日），日期的顯示要依系統的短日期格式設置而定。缺省的短日期格式為 m/d/yy。
dddddd
以完整日期表示法顯示日期系列數（包括年、月、日），日期的顯示要依系統識別的長日期格式而定。缺省的長日期格式為 mmmm dd, yyyy。
aaaa
與dddd 一樣，它只是該字符串的本地化版本。
W
將一周中的日期以數值表示（1 表星期日~ 7表星期六）。
ww
將一年中的星期以數值表示 (1 – 54)。
M
以沒有前導零的數字來顯示月 (1 – 12)。如果 m 是直接跟在 h 或 hh 之後，那麼顯示的將是分而不是月。
mm
以有前導零的數字來顯示月 (01 – 12)。如果m是直接跟在h或hh之後，那麼顯示的將是分而不是月。
mmm
以簡寫來表示月 (Jan –Dec)。
mmmm
以全稱來表示月 (January –December)。
oooo
與mmmm一樣，它只是該字符串的本地化版本。
Q
將一年中的季以數值表示 (1 – 4)。
Y
將一年中的日以數值表示 (1 – 366)。
Yy
以兩位數來表示年 (00 – 99)。
yyyy
以四位數來表示年 (00 – 99)。
H
以沒有前導零的數字來顯示小時 (0 – 23)。
Hh
以有前導零的數字來顯示小時 (00– 23)。
N
以沒有前導零的數字來顯示分 (0 – 59)。
Nn
以有前導零的數字來顯示分 (00 – 59)。
S
以沒有前導零的數字來顯示秒 (0 – 59)。
Ss
以有前導零的數字來顯示秒 (00 – 59)。
t t t t t
以完整時間表示法顯示（包括時、分、秒），用系統識別的時間格式定義的時間分隔符進行格式化。如果選擇有前導零並且時間是在 10:00 A.M. 或 P.M.之前，那麼將顯示有前導零的時間。缺省的時間格式為 h:mm:ss。
AM/PM
在中午前以 12 小時配合大寫 AM 符號來使用；在中午和 11:59 P.M.間以 12 小時配合大寫 PM 來使用。
Am/pm
在中午前以 12 小時配合小寫 am 符號來使用；在中午和 11:59 P.M.間以 12 小時配合小寫 pm 來使用。
A/P
在中午前以 12 小時配合大寫A符號來使用；在中午和 11:59 P.M.間以12 小時配合大寫P來使用。
a/p
在中午前以 12 小時配合小寫a符號來使用；在中午和 11:59 P.M.間以 12 小時配合小寫p來使用。
AMPM
在中午前以 12 小時配合系統設置的 AM字符串文字來使用；在中午和 11:59 P.M. 間以 12 小時配合系統設置的 PM 字符串文字來使用。AMPM 可以是大寫或小寫，但必須和您的系統設置相配。其缺省格式為 AM/PM。
日期函數示例
當天日期：=Date()
當日：=Day(date)
當月：=Month(date())
當年：=Year(date())
當季：=DatePart("q",Date())
把日期大寫
Function Date2Chinese(iDate)
Dim num(10)
Dim iYear
Dim iMonth
Dim iDay
num(0) = "〇"
num(1) = "一"
num(2) = "二"
num(3) = "三"
num(4) = "四"
num(5) = "五"
num(6) = "六"
num(7) = "七"
num(8) = "八"
num(9) = "九"
iYear = Year(iDate)
iMonth = Month(iDate)
iDay = Day(iDate)
Date2Chinese = num(iYear \ 1000) + _
num((iYear \ 100) Mod 10) + num((iYear \ 10) Mod 10) + num(iYear Mod 10) + "年"
If iMonth >= 10 Then
If iMonth = 10 Then
Date2Chinese = Date2Chinese +"十" + "月"
Else
Date2Chinese = Date2Chinese +"十" + num(iMonth Mod 10) + "月"
End If
Else
Date2Chinese = Date2Chinese +num(iMonth Mod 10) + "月"
End If
If iDay >= 10 Then
If iDay = 10 Then
Date2Chinese = Date2Chinese +"十" + "日"
ElseIf iDay = 20 Or iDay = 30 Then
Date2Chinese = Date2Chinese + num(iDay \ 10) + "十" + "日"
ElseIf iDay > 20 Then
Date2Chinese = Date2Chinese + num(iDay \ 10) + "十" + num(iDay Mod 10) + "日"
Else
Date2Chinese = Date2Chinese + "十" + num(iDay Mod 10) + "日"
End If
Else
Date2Chinese = Date2Chinese + num(iDay Mod 10) + "日"
End If
End Function
算出每個月的天數
一法：
Dim a, b, c
a = Year(Now())
b = Month(Now())
c = Format((a & "/" & b + 1 & "/1"), "######") - Format((a & "/" & b & "/1"), "######")
二法：
DateDiff("d", Format(Date, "yyyy-mm-01"), Format(DateAdd("m", -1, Date), "yyyy-mm-01"))
DateDiff可以算出兩個日期之間相差幾天！
三法：
Day(DateAdd("d", -1, Format(Date, "yyyy-mm-01")))
day函數可以知道某個日期是這個月的第幾天，我們把這個月的最後一天拿出來DAY一下！應該還有更好的方法！比如說可以定義一個數組，把每個月的日子放進去，或者說寫一個函數算每一個月的天數只要考慮一下閨年的問題就可以了！
如何得到某年每個月的第一天是星期幾
Private Sub Command1_Click()
Dim i As Integer, A As Integer, B As Integer, C As String
A = InputBox("請輸入年份", "某年每個月的第一天是星期幾")
Form1.Cls
For i = 1 To 12
C = A & "-" & i & "-1"
B = Weekday(C)
Select Case B
Case vbSunday
Print A & "年" & i & "月1日是 星期日"
Case vbMonday
Print A & "年" & i & "月1日是 星期一"
Case vbTuesday
Print A & "年" & i & "月1日是 星期二"
Case vbWednesday
Print A & "年" & i & "月1日是 星期三"
Case vbThursday
Print A & "年" & i & "月1日是 星期四"
Case vbFriday
Print A & "年" & i & "月1日是 星期五"
Case vbSaturday
Print A & "年" & i & "月1日是 星期六"
End Select
Next i
End Sub
計算天數及月初月末日期
Function 本月天數(日期 As Date) As Byte
本月天數 = DateSerial(Year(日期), Month(日期) + 1, Day(日期)) - 日期
End Function
Function 月末(日期 As Date) As Date
月末 = DateSerial(Year(日期), Month(日期) + 1, 1) - 1
End Function
Function 月初(日期 As Date) As Date
月初 = 日期 - Day(日期) + 1
End Function
本月最後一日是周幾
SELECT
Weekday(DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1)-1)) AS 本月最後一日是周幾,
下月最後一日是周幾
SELECT
Weekday(DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1)-1)) AS 下月最後一日是周幾,
本月最後一個周5到月底的天數
SELECT
(Weekday(DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1)-1))+1) Mod 7 AS 本月最後一個周5到月底的天數;
下月最後一個周5到月底的天數
SELECT
(Weekday(DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1)-1))+1) Mod 7 AS 下月最後一個周5到月底的天數;
本月最後一個周5的日期
SELECT
DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1))-1-(Weekday(DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1)-1))+1) Mod 7 AS 本月最後一個周5的日期;
下月最後一個周5的日期
SELECT
DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1))-1-(Weekday(DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1)-1))+1) Mod 7 AS 下月最後一個周5的日期;
多思考，多創新，才是正道！
