侯体宗的博客
  • 首页
  • Hyperf版
  • beego仿版
  • 人生(杂谈)
  • 技术
  • 关于我
  • 更多分类
    • 文件下载
    • 文字修仙
    • 中国象棋ai
    • 群聊
    • 九宫格抽奖
    • 拼图
    • 消消乐
    • 相册

Access日期与时间函数汇总

技术  /  管理员 发布于 7年前   196

今天在开发系统的时候,需要实现这样一个功能

     根据选中的日期,查询相关的内容,但不是按照整个日期去过滤,而是根据,年,月,日拆分的形式去过滤,比如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 C 31)。

Dd

以有前导零的数字来显示日 (01 C 31)。

ddd

以简写来表示日 (Sun CSat)。

dddd

以全称来表示日 (Sunday CSaturday)。

ddddd

以完整日期表示法显示(包括年、月、日),日期的显示要依系统的短日期格式设置而定。缺省的短日期格式为 m/d/yy。

dddddd

以完整日期表示法显示日期系列数(包括年、月、日),日期的显示要依系统识别的长日期格式而定。缺省的长日期格式为 mmmm dd, yyyy。

aaaa

与dddd 一样,它只是该字符串的本地化版本。

W

将一周中的日期以数值表示(1 表星期日~ 7表星期六)。

ww

将一年中的星期以数值表示 (1 C 54)。

M

以没有前导零的数字来显示月 (1 C 12)。如果 m 是直接跟在 h 或 hh 之后,那么显示的将是分而不是月。

mm

以有前导零的数字来显示月 (01 C 12)。如果m是直接跟在h或hh之后,那么显示的将是分而不是月。

mmm

以简写来表示月 (Jan CDec)。

mmmm

以全称来表示月 (January CDecember)。

oooo

与mmmm一样,它只是该字符串的本地化版本。

Q

将一年中的季以数值表示 (1 C 4)。

Y

将一年中的日以数值表示 (1 C 366)。

Yy

以两位数来表示年 (00 C 99)。

yyyy

以四位数来表示年 (00 C 99)。

H

以没有前导零的数字来显示小时 (0 C 23)。

Hh

以有前导零的数字来显示小时 (00C 23)。

N

以没有前导零的数字来显示分 (0 C 59)。

Nn

以有前导零的数字来显示分 (00 C 59)。

S

以没有前导零的数字来显示秒 (0 C 59)。

Ss

以有前导零的数字来显示秒 (00 C 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不能打开注册表关键字错误处理方法(80004005错误)
    下一条:
    如何让access自动编号从1开始排序实现方法
  • 昵称:

    邮箱:

    0条评论 (评论内容有缓存机制,请悉知!)
    最新最热
    • 分类目录
    • 人生(杂谈)
    • 技术
    • linux
    • Java
    • php
    • 框架(架构)
    • 前端
    • ThinkPHP
    • 数据库
    • 微信(小程序)
    • Laravel
    • Redis
    • Docker
    • Go
    • swoole
    • Windows
    • Python
    • 苹果(mac/ios)
    • 相关文章
    • 智能合约Solidity学习CryptoZombie第三课:组建僵尸军队(高级Solidity理论)(0个评论)
    • 智能合约Solidity学习CryptoZombie第二课:让你的僵尸猎食(0个评论)
    • 智能合约Solidity学习CryptoZombie第一课:生成一只你的僵尸(0个评论)
    • gmail发邮件报错:534 5.7.9 Application-specific password required...解决方案(0个评论)
    • 2024.07.09日OpenAI将终止对中国等国家和地区API服务(0个评论)
    • 近期文章
    • 智能合约Solidity学习CryptoZombie第三课:组建僵尸军队(高级Solidity理论)(0个评论)
    • 智能合约Solidity学习CryptoZombie第二课:让你的僵尸猎食(0个评论)
    • 智能合约Solidity学习CryptoZombie第一课:生成一只你的僵尸(0个评论)
    • 在go中实现一个常用的先进先出的缓存淘汰算法示例代码(0个评论)
    • 在go+gin中使用"github.com/skip2/go-qrcode"实现url转二维码功能(0个评论)
    • 在go语言中使用api.geonames.org接口实现根据国际邮政编码获取地址信息功能(1个评论)
    • 在go语言中使用github.com/signintech/gopdf实现生成pdf分页文件功能(0个评论)
    • gmail发邮件报错:534 5.7.9 Application-specific password required...解决方案(0个评论)
    • 欧盟关于强迫劳动的规定的官方举报渠道及官方举报网站(0个评论)
    • 在go语言中使用github.com/signintech/gopdf实现生成pdf文件功能(0个评论)
    • 近期评论
    • 122 在

      学历:一种延缓就业设计,生活需求下的权衡之选中评论 工作几年后,报名考研了,到现在还没认真学习备考,迷茫中。作为一名北漂互联网打工人..
    • 123 在

      Clash for Windows作者删库跑路了,github已404中评论 按理说只要你在国内,所有的流量进出都在监控范围内,不管你怎么隐藏也没用,想搞你分..
    • 原梓番博客 在

      在Laravel框架中使用模型Model分表最简单的方法中评论 好久好久都没看友情链接申请了,今天刚看,已经添加。..
    • 博主 在

      佛跳墙vpn软件不会用?上不了网?佛跳墙vpn常见问题以及解决办法中评论 @1111老铁这个不行了,可以看看近期评论的其他文章..
    • 1111 在

      佛跳墙vpn软件不会用?上不了网?佛跳墙vpn常见问题以及解决办法中评论 网站不能打开,博主百忙中能否发个APP下载链接,佛跳墙或极光..
    • 2016-10
    • 2016-11
    • 2017-07
    • 2017-08
    • 2017-09
    • 2018-01
    • 2018-07
    • 2018-08
    • 2018-09
    • 2018-12
    • 2019-01
    • 2019-02
    • 2019-03
    • 2019-04
    • 2019-05
    • 2019-06
    • 2019-07
    • 2019-08
    • 2019-09
    • 2019-10
    • 2019-11
    • 2019-12
    • 2020-01
    • 2020-03
    • 2020-04
    • 2020-05
    • 2020-06
    • 2020-07
    • 2020-08
    • 2020-09
    • 2020-10
    • 2020-11
    • 2021-04
    • 2021-05
    • 2021-06
    • 2021-07
    • 2021-08
    • 2021-09
    • 2021-10
    • 2021-12
    • 2022-01
    • 2022-02
    • 2022-03
    • 2022-04
    • 2022-05
    • 2022-06
    • 2022-07
    • 2022-08
    • 2022-09
    • 2022-10
    • 2022-11
    • 2022-12
    • 2023-01
    • 2023-02
    • 2023-03
    • 2023-04
    • 2023-05
    • 2023-06
    • 2023-07
    • 2023-08
    • 2023-09
    • 2023-10
    • 2023-12
    • 2024-02
    • 2024-04
    • 2024-05
    • 2024-06
    • 2025-02
    • 2025-07
    Top

    Copyright·© 2019 侯体宗版权所有· 粤ICP备20027696号 PHP交流群

    侯体宗的博客