电脑知识|欧美黑人一区二区三区|软件|欧美黑人一级爽快片淫片高清|系统|欧美黑人狂野猛交老妇|数据库|服务器|编程开发|网络运营|知识问答|技术教程文章 - 好吧啦网

您的位置:首頁技術文章
文章詳情頁

Access日期與時間函數匯總

瀏覽:266日期:2023-03-18 16:41:43

今天在開發系統的時候,需要實現這樣一個功能

     根據選中的日期,查詢相關的內容,但不是按照整個日期去過濾,而是根據,年,月,日拆分的形式去過濾,比如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的日期;

多思考,多創新,才是正道!

標簽: Access
相關文章:
主站蜘蛛池模板: ★塑料拖链__工程拖链__电缆拖链__钢制拖链 - 【上海闵彬】 | HEYL硬度计量泵-荧光法在线溶解氧仪-净时测控技术(上海)有限公司 | 印刷人才网 印刷、包装、造纸,中国80%的印刷企业人才招聘选印刷人才网! | 板框压滤机-隔膜压滤机配件生产厂家-陕西华星佳洋装备制造有限公司 | 蓝米云-专注于高性价比香港/美国VPS云服务器及海外公益型免费虚拟主机 | 短信通106短信接口验证码接口群发平台_国际短信接口验证码接口群发平台-速度网络有限公司 | 超声波清洗机_细胞破碎仪_实验室超声仪器_恒温水浴-广东洁盟深那仪器 | 爱佩恒温恒湿测试箱|高低温实验箱|高低温冲击试验箱|冷热冲击试验箱-您身边的模拟环境试验设备技术专家-合作热线:400-6727-800-广东爱佩试验设备有限公司 | 郑州宣传片拍摄-TVC广告片拍摄-微电影短视频制作-河南优柿文化传媒有限公司 | 活性炭-蜂窝-椰壳-柱状-粉状活性炭-河南唐达净水材料有限公司 | 合肥钣金加工-安徽激光切割加工-机箱机柜加工厂家-合肥通快 | 越南专线物流_东莞国际物流_东南亚专线物流_行通物流 | 浙江浩盛阀门有限公司 | 牛皮纸|牛卡纸|进口牛皮纸|食品级牛皮纸|牛皮纸厂家-伽立实业 | 网站优化公司_SEO优化_北京关键词百度快速排名-智恒博网络 | 电磁流量计厂家_涡街流量计厂家_热式气体流量计-青天伟业仪器仪表有限公司 | 纯化水设备-EDI-制药-实验室-二级反渗透-高纯水|超纯水设备 | 东莞压铸厂_精密压铸_锌合金压铸_铝合金压铸_压铸件加工_东莞祥宇金属制品 | LINK FASHION 童装·青少年装展 河南卓美创业科技有限公司-河南卓美防雷公司-防雷接地-防雷工程-重庆避雷针-避雷器-防雷检测-避雷带-避雷针-避雷塔、机房防雷、古建筑防雷等-山西防雷公司 | 档案密集架_电动密集架_移动密集架_辽宁档案密集架-盛隆柜业厂家现货批发销售价格公道 | 东莞市天进机械有限公司-钉箱机-粘箱机-糊箱机-打钉机认准东莞天进机械-厂家直供更放心! | 二维运动混料机,加热型混料机,干粉混料机-南京腾阳干燥设备厂 | 电动百叶窗,开窗器,电动遮阳百叶,电动开窗机生产厂家-徐州鑫友工控科技发展有限公司 | 南京展台搭建-南京展会设计-南京展览设计公司-南京展厅展示设计-南京汇雅展览工程有限公司 | 低温等离子清洗机(双气路进口)-嘉润万丰 | 千淘酒店差旅平台-中国第一家针对TMC行业的酒店资源供应平台 | 电子厂招聘_工厂招聘_普工招聘_小时工招聘信息平台-众立方招工网 | 房间温控器|LonWorks|海思| 碳钢法兰厂家,非标法兰,定制异型,法兰生产厂家-河北九瑞管道 | vr安全体验馆|交通安全|工地安全|禁毒|消防|安全教育体验馆|安全体验教室-贝森德(深圳)科技 | 天津暖气片厂家_钢制散热器_天津铜铝复合暖气片_维尼罗散热器 | 工控机,嵌入式主板,工业主板,arm主板,图像采集卡,poe网卡,朗锐智科 | 专注氟塑料泵_衬氟泵_磁力泵_卧龙泵阀_化工泵专业品牌 - 梭川泵阀 | 粉末冶金注射成型厂家|MIM厂家|粉末冶金齿轮|MIM零件-深圳市新泰兴精密科技 | 水压力传感器_数字压力传感器|佛山一众传感仪器有限公司|首页 | 云南标线|昆明划线|道路标线|交通标线-就选云南云路施工公司-云南云路科技有限公司 | 外贸资讯网 - 洞悉全球贸易,把握市场先机 | 考勤系统_人事考勤管理系统_本地部署BS考勤系统_考勤软件_天时考勤管理专家 | 无缝钢管-聊城无缝钢管-小口径无缝钢管-大口径无缝钢管 - 聊城宽达钢管有限公司 | 锂电混合机-新能源混合机-正极材料混料机-高镍,三元材料混料机-负极,包覆混合机-贝尔专业混合混料搅拌机械系统设备厂家 | 潜水搅拌机-双曲面搅拌机-潜水推进器|奥伯尔环保 |