Access日期與時間函數(shù)匯總_Access數(shù)據(jù)庫教程

      編輯Tag賺U幣

      推薦:使用ACCESS時最容易忽略的工作
      壓縮和修復數(shù)據(jù)庫 看到這兒,說明你已經能夠獨立完成一個Access數(shù)據(jù)庫了,但是在工作當中,你還需要注意一下的這些問題,這可是很容易忽略的工作。 當你的數(shù)據(jù)庫在經過你簡單的操作都會發(fā)生崩潰的時候,數(shù)據(jù)庫可能會被破壞。為了解決這個問題我們就需要修復這個數(shù)據(jù)庫

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

      根據(jù)選中的日期,查詢相關的內容,但不是按照整個日期去過濾,而是根據(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中卻通不過,因為方法有些不一樣,需要這樣寫

      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的函數(shù)在前面說到了,現(xiàn)在把access的日期函數(shù)總結一下

      如何將文本型: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之間相差的天數(shù)。
      =DateDiff("d", [訂購日期], [發(fā)貨日期])

      從今天算起到三個月后的日期之間的記錄。
      Betweeb date() and adddate(3,date())

      根據(jù)出生日期計算年齡(周歲)
      =IIf(Month(Date())-Month([出生年月日])>-1,Year(Date())-Year([出生年月日]),Year(Date())-Year([出生年月日])-1)

      自定義日期/時間格式 (Format 函數(shù))
      (:) 時間分隔符。在一些區(qū)域,可能用其他符號來當時間分隔符。格式化時間值時,時間分隔符可以分隔時、分、秒。時間分隔符的真正字符在格式輸出時取決于系統(tǒng)的設置。

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

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

      D

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

      Dd

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

      ddd

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

      dddd

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

      ddddd

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

      dddddd

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

      aaaa

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

      W

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

      ww

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

      M

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

      mm

      以有前導零的數(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

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

      Hh

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

      N

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

      Nn

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

      S

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

      Ss

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

      t t t t t

      以完整時間表示法顯示(包括時、分、秒),用系統(tǒng)識別的時間格式定義的時間分隔符進行格式化。如果選擇有前導零并且時間是在 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 小時配合系統(tǒng)設置的 AM字符串文字來使用;在中午和 11:59 P.M. 間以 12 小時配合系統(tǒng)設置的 PM 字符串文字來使用。AMPM 可以是大寫或小寫,但必須和您的系統(tǒng)設置相配。其缺省格式為 AM/PM。

      日期函數(shù)示例
      當天日期:=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

      算出每個月的天數(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可以算出兩個日期之間相差幾天!

      三法:

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

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

      如何得到某年每個月的第一天是星期幾
      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

      計算天數(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 下月最后一日是周幾,

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

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

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

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

      本月最后一個周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的日期;

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

      分享:Access使用宏控制程序之常用的宏操作
      宏的操作是非常豐富的,如果你只是做一個小型的數(shù)據(jù)庫,程序的流程用宏就可以完全實現(xiàn),而無須使用 Visual Basic 。 有的操作是沒有參數(shù)的(如 Beep ),而有的操作必須指定參數(shù)才行(如 OpenForm )。通常,按參數(shù)排列順序來設置操作的參數(shù)是很好的方法,因為選擇某一參數(shù)

      來源:模板無憂//所屬分類:Access數(shù)據(jù)庫教程/更新時間:2013-04-21
      相關Access數(shù)據(jù)庫教程