Access日期與時(shí)間函數(shù)匯總，需要的朋友可以參考一下

今天在開發(fā)系統(tǒng)的時(shí)候，需要實(shí)現(xiàn)這樣一個(gè)功能

根據(jù)選中的日期，查詢相關(guān)的內(nèi)容，但不是按照整個(gè)日期去過濾，而是根據(jù)，年，月，日拆分的形式去過濾，比如2013年的，2月份的

在sqlserver中，我們可以可以直接根據(jù)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中卻通不過，因?yàn)榉椒ㄓ行┎灰粯?，需要這樣寫

select * from pays where 1=1 and datepart("yyyy", pdate)=2013 and datepart("m", pdate)=2 and datepart('d', pdate)=21 order by pdate

關(guān)于sqlserver的函數(shù)在前面說到了，現(xiàn)在把a(bǔ)ccess的日期函數(shù)總結(jié)一下

如何將文本型：2003.08.04 轉(zhuǎn)換為日期型：2003-08-04

cdate(replace("2003.08.04",".","-"))

顯示當(dāng)前日期在該年中所處的星期號

=Format(Now(), "ww")

ww 為 1 到 53。

顯示日期字段值的四位年份值。

=DatePart("yyyy", [訂購日期])

顯示日期字段值前 10 天的日期值。

=DateAdd("y", -10, [應(yīng)付日期])

顯示日期字段值前一個(gè)月的日期值。

=DateAdd("m",-1,Date())

顯示日期1和日期2之間相差的天數(shù)。

=DateDiff("d", [訂購日期], [發(fā)貨日期])

從今天算起到三個(gè)月后的日期之間的記錄。

Betweeb date() and adddate(3,date())

根據(jù)出生日期計(jì)算年齡(周歲)

=IIf(Month(Date())-Month([出生年月日])>-1,Year(Date())-Year([出生年月日]),Year(Date())-Year([出生年月日])-1)

自定義日期/時(shí)間格式 (Format 函數(shù))

(:) 時(shí)間分隔符。在一些區(qū)域，可能用其他符號來當(dāng)時(shí)間分隔符。格式化時(shí)間值時(shí)，時(shí)間分隔符可以分隔時(shí)、分、秒。時(shí)間分隔符的真正字符在格式輸出時(shí)取決于系統(tǒng)的設(shè)置。

(/) 日期分隔符。在一些區(qū)域，可能用其他符號來當(dāng)日期分隔符。格式化日期數(shù)值時(shí)，日期分隔符可以分隔年、月、日。日期分隔符的真正字符在格式輸出時(shí)取決于系統(tǒng)設(shè)置。

C 以 ddddd 來顯示日期并且以 ttttt 來顯示時(shí)間。如果想顯示的數(shù)值無小數(shù)部分，則只顯示日期部分，如果想顯示的數(shù)值無整數(shù)部分，則只顯示時(shí)間部分。

D

以沒有前導(dǎo)零的數(shù)字來顯示日 (1 – 31)。

Dd

以有前導(dǎo)零的數(shù)字來顯示日 (01 – 31)。

ddd

以簡寫來表示日 (Sun –Sat)。

dddd

以全稱來表示日 (Sunday –Saturday)。

ddddd

以完整日期表示法顯示(包括年、月、日)，日期的顯示要依系統(tǒng)的短日期格式設(shè)置而定。缺省的短日期格式為 m/d/yy。

dddddd

以完整日期表示法顯示日期系列數(shù)(包括年、月、日)，日期的顯示要依系統(tǒng)識別的長日期格式而定。缺省的長日期格式為 mmmm dd, yyyy。

aaaa

與dddd 一樣，它只是該字符串的本地化版本。

W

將一周中的日期以數(shù)值表示(1 表星期日~ 7表星期六)。

ww

將一年中的星期以數(shù)值表示 (1 – 54)。

M

以沒有前導(dǎo)零的數(shù)字來顯示月 (1 – 12)。如果 m 是直接跟在 h 或 hh 之后，那么顯示的將是分而不是月。

mm

以有前導(dǎo)零的數(shù)字來顯示月 (01 – 12)。如果m是直接跟在h或hh之后，那么顯示的將是分而不是月。

mmm

以簡寫來表示月 (Jan –Dec)。

mmmm

以全稱來表示月 (January –December)。

oooo

與mmmm一樣，它只是該字符串的本地化版本。

Q

將一年中的季以數(shù)值表示 (1 – 4)。

Y

將一年中的日以數(shù)值表示 (1 – 366)。

Yy

以兩位數(shù)來表示年 (00 – 99)。

yyyy

以四位數(shù)來表示年 (00 – 99)。

H

以沒有前導(dǎo)零的數(shù)字來顯示小時(shí) (0 – 23)。

Hh

以有前導(dǎo)零的數(shù)字來顯示小時(shí) (00– 23)。

N

以沒有前導(dǎo)零的數(shù)字來顯示分 (0 – 59)。

Nn

以有前導(dǎo)零的數(shù)字來顯示分 (00 – 59)。

S

以沒有前導(dǎo)零的數(shù)字來顯示秒 (0 – 59)。

Ss

以有前導(dǎo)零的數(shù)字來顯示秒 (00 – 59)。

t t t t t

以完整時(shí)間表示法顯示(包括時(shí)、分、秒)，用系統(tǒng)識別的時(shí)間格式定義的時(shí)間分隔符進(jìn)行格式化。如果選擇有前導(dǎo)零并且時(shí)間是在 10:00 A.M. 或 P.M.之前，那么將顯示有前導(dǎo)零的時(shí)間。缺省的時(shí)間格式為 h:mm:ss。

AM/PM

在中午前以 12 小時(shí)配合大寫 AM 符號來使用;在中午和 11:59 P.M.間以 12 小時(shí)配合大寫 PM 來使用。

Am/pm

在中午前以 12 小時(shí)配合小寫 am 符號來使用;在中午和 11:59 P.M.間以 12 小時(shí)配合小寫 pm 來使用。

A/P

在中午前以 12 小時(shí)配合大寫A符號來使用;在中午和 11:59 P.M.間以12 小時(shí)配合大寫P來使用。

a/p

在中午前以 12 小時(shí)配合小寫a符號來使用;在中午和 11:59 P.M.間以 12 小時(shí)配合小寫p來使用。

AMPM

在中午前以 12 小時(shí)配合系統(tǒng)設(shè)置的 AM字符串文字來使用;在中午和 11:59 P.M. 間以 12 小時(shí)配合系統(tǒng)設(shè)置的 PM 字符串文字來使用。AMPM 可以是大寫或小寫，但必須和您的系統(tǒng)設(shè)置相配。其缺省格式為 AM/PM。

日期函數(shù)示例

當(dāng)天日期：=Date()

當(dāng)日：=Day(date)

當(dāng)月：=Month(date())

當(dāng)年：=Year(date())

當(dāng)季：=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

算出每個(gè)月的天數(shù)

一法：

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可以算出兩個(gè)日期之間相差幾天!

三法：

Day(DateAdd("d", -1, Format(Date, "yyyy-mm-01")))

day函數(shù)可以知道某個(gè)日期是這個(gè)月的第幾天，我們把這個(gè)月的最后一天拿出來DAY一下!應(yīng)該還有更好的方法!比如說可以定義一個(gè)數(shù)組，把每個(gè)月的日子放進(jìn)去，或者說寫一個(gè)函數(shù)算每一個(gè)月的天數(shù)只要考慮一下閨年的問題就可以了!

如何得到某年每個(gè)月的第一天是星期幾

Private Sub Command1_Click()

Dim i As Integer, A As Integer, B As Integer, C As String

A = InputBox("請輸入年份", "某年每個(gè)月的第一天是星期幾")

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

計(jì)算天數(shù)及月初月末日期

Function 本月天數(shù)(日期 As Date) As Byte

本月天數(shù) = 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 下月最后一日是周幾,

本月最后一個(gè)周5到月底的天數(shù)

SELECT

(Weekday(DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1)-1))+1) Mod 7 AS 本月最后一個(gè)周5到月底的天數(shù);

下月最后一個(gè)周5到月底的天數(shù)

SELECT

(Weekday(DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1)-1))+1) Mod 7 AS 下月最后一個(gè)周5到月底的天數(shù);

本月最后一個(gè)周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 本月最后一個(gè)周5的日期;

下月最后一個(gè)周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 下月最后一個(gè)周5的日期;

多思考，多創(chuàng)新，才是正道!