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

您的位置:首頁(yè)技術(shù)文章
文章詳情頁(yè)

Access日期與時(shí)間函數(shù)匯總

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

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

     根據(jù)選中的日期,查詢相關(guān)的內(nèi)容,但不是按照整個(gè)日期去過(guò)濾,而是根據(jù),年,月,日拆分的形式去過(guò)濾,比如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中卻通不過(guò),因?yàn)榉椒ㄓ行┎灰粯樱枰@樣寫(xiě)

    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ù)在前面說(shuō)到了,現(xiàn)在把a(bǔ)ccess的日期函數(shù)總結(jié)一下

如何將文本型:2003.08.04 轉(zhuǎn)換為日期型:2003-08-04
cdate(replace("2003.08.04",".","-"))

顯示當(dāng)前日期在該年中所處的星期號(hào)
=Format(Now(), "ww")

ww 為 1 到 53。

顯示日期字段值的四位年份值。
=DatePart("yyyy", [訂購(gòu)日期])

顯示日期字段值前 10 天的日期值。
=DateAdd("y", -10, [應(yīng)付日期])

顯示日期字段值前一個(gè)月的日期值。
=DateAdd("m",-1,Date())

顯示日期1和日期2之間相差的天數(shù)。
=DateDiff("d", [訂購(gòu)日期], [發(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ū)域,可能用其他符號(hào)來(lái)當(dāng)時(shí)間分隔符。格式化時(shí)間值時(shí),時(shí)間分隔符可以分隔時(shí)、分、秒。時(shí)間分隔符的真正字符在格式輸出時(shí)取決于系統(tǒng)的設(shè)置。

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

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

D

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

Dd

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

ddd

以簡(jiǎn)寫(xiě)來(lái)表示日 (Sun –Sat)。

dddd

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

ddddd

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

dddddd

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

aaaa

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

W

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

ww

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

M

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

mm

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

mmm

以簡(jiǎn)寫(xiě)來(lái)表示月 (Jan –Dec)。

mmmm

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

oooo

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

Q

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

Y

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

Yy

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

yyyy

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

H

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

Hh

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

N

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

Nn

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

S

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

Ss

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

t t t t t

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

AM/PM

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

Am/pm

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

A/P

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

a/p

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

AMPM

在中午前以 12 小時(shí)配合系統(tǒng)設(shè)置的 AM字符串文字來(lái)使用;在中午和 11:59 P.M. 間以 12 小時(shí)配合系統(tǒng)設(shè)置的 PM 字符串文字來(lái)使用。AMPM 可以是大寫(xiě)或小寫(xiě),但必須和您的系統(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())

把日期大寫(xiě)
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è)月的最后一天拿出來(lái)DAY一下!應(yīng)該還有更好的方法!比如說(shuō)可以定義一個(gè)數(shù)組,把每個(gè)月的日子放進(jìn)去,或者說(shuō)寫(xiě)一個(gè)函數(shù)算每一個(gè)月的天數(shù)只要考慮一下閨年的問(wèn)題就可以了!

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

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

A = InputBox("請(qǐng)輸入年份", "某年每個(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)新,才是正道!

標(biāo)簽: Access
相關(guān)文章:
主站蜘蛛池模板: 盘式曝气器-微孔曝气器-管式曝气器-曝气盘-斜管填料 | 郑州市前程水处理有限公司 | 塑料瓶罐_食品塑料瓶_保健品塑料瓶_调味品塑料瓶–东莞市富慷塑料制品有限公司 | 纸布|钩编布|钩针布|纸草布-莱州佳源工艺纸布厂 | 5nd音乐网|最新流行歌曲|MP3歌曲免费下载|好听的歌|音乐下载 免费听mp3音乐 | 干粉砂浆设备_干混砂浆生产线_腻子粉加工设备_石膏抹灰砂浆生产成套设备厂家_干粉混合设备_砂子烘干机--郑州铭将机械设备有限公司 | 瓶盖扭矩仪(扭力值检测)-百科 | 散热器-电子散热器-型材散热器-电源散热片-镇江新区宏图电子散热片厂家 | 山东聚盛新型材料有限公司-纳米防腐隔热彩铝板和纳米防腐隔热板以及钛锡板、PVDF氟膜板供应商 | 成都顶呱呱信息技术有限公司-贷款_个人贷款_银行贷款在线申请 - 成都贷款公司 | 成人纸尿裤,成人尿不湿,成人护理垫-山东康舜日用品有限公司 | 反渗透水处理设备|工业零排放|水厂设备|软化水设备|海南净水设备--海南水处理设备厂家 | 真空泵维修保养,普发,阿尔卡特,荏原,卡西亚玛,莱宝,爱德华干式螺杆真空泵维修-东莞比其尔真空机电设备有限公司 | 贝朗斯动力商城(BRCPOWER.COM) - 买叉车蓄电池上贝朗斯商城,价格更超值,品质有保障! | 阴离子_阳离子聚丙烯酰胺厂家_聚合氯化铝价格_水处理絮凝剂_巩义市江源净水材料有限公司 | 带式压滤机_污泥压滤机_污泥脱水机_带式过滤机_带式压滤机厂家-河南恒磊环保设备有限公司 | 广州云仓代发-昊哥云仓专业电商仓储托管外包代发货服务 | 展厅设计-展馆设计-专业企业展厅展馆设计公司-昆明华文创意 | 口臭的治疗方法,口臭怎么办,怎么除口臭,口臭的原因-口臭治疗网 | 手术室净化厂家-成都做医院净化工程的公司-四川华锐-15年特殊科室建设经验 | vr安全体验馆|交通安全|工地安全|禁毒|消防|安全教育体验馆|安全体验教室-贝森德(深圳)科技 | 金属管浮子流量计_金属转子流量计厂家-淮安润中仪表科技有限公司 | 宜兴紫砂壶知识分享 - 宜兴壶人 医用空气消毒机-医用管路消毒机-工作服消毒柜-成都三康王 | ZHZ8耐压测试仪-上海胜绪电气有限公司| 河南中专学校|职高|技校招生-河南中职中专网 | 中式装修设计_全屋定制家具_实木仿古门窗花格厂家-喜迎门 | 江苏南京多语种翻译-专业翻译公司报价-正规商务翻译机构-南京华彦翻译服务有限公司 | 大行程影像测量仪-探针型影像测量仪-增强型影像测量仪|首丰百科 大通天成企业资质代办_承装修试电力设施许可证_增值电信业务经营许可证_无人机运营合格证_广播电视节目制作许可证 | 理化生实验室设备,吊装实验室设备,顶装实验室设备,实验室成套设备厂家,校园功能室设备,智慧书法教室方案 - 东莞市惠森教学设备有限公司 | 透平油真空滤油机-变压器油板框滤油机-滤油车-华之源过滤设备 | 北京易通慧公司从事北京网站优化,北京网络推广、网站建设一站式服务商-北京网站优化公司 | 我车网|我关心的汽车资讯_汽车图片_汽车生活!| 中央空调温控器_风机盘管温控器_智能_液晶_三速开关面板-中央空调温控器厂家 | 余姚生活网_余姚论坛_余姚市综合门户网站 | 安规_综合测试仪,电器安全性能综合测试仪,低压母线槽安规综合测试仪-青岛合众电子有限公司 | 安全光栅|射频导纳物位开关|音叉料位计|雷达液位计|两级跑偏开关|双向拉绳开关-山东卓信机械有限公司 | 旅游规划_旅游策划_乡村旅游规划_景区规划设计_旅游规划设计公司-北京绿道联合旅游规划设计有限公司 | 学考网学历中心| 档案密集架_电动密集架_移动密集架_辽宁档案密集架-盛隆柜业厂家现货批发销售价格公道 | 上海皓越真空设备有限公司官网-真空炉-真空热压烧结炉-sps放电等离子烧结炉 | 金属切削液-脱水防锈油-电火花机油-抗磨液压油-深圳市雨辰宏业科技发展有限公司 | 江苏齐宝进出口贸易有限公司 |