• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    Access日期与时间函数汇总

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

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

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

    您可能感兴趣的文章:
    • c#连接access数据库操作类分享
    • Access数据库不能写不能更新的解决方法
    • 将ACCESS数据库迁移到SQLSERVER数据库两种方法(图文详解)
    • ASP.NET 连接ACCESS数据库的简单方法
    • .htaccess重定向和url重写详细介绍
    • 如何让access自动编号从1开始排序实现方法
    • ASP连接Access数据库的几种方法
    • Mssql,Access的sql经典SQL语句大全
    • win2008下IIS7、IIS7.5 配置ASP+ACCESS使用环境
    • SQL查询语句通配符与ACCESS模糊查询like的解决方法
    • PHP has encountered an Access Violation at XXXXXX 的解决方法
    • 搭建小型access数据库实录
    上一篇:如何让access自动编号从1开始排序实现方法
    下一篇:一句sql更新两个表并可更新对应的字段值具体实现
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    Access日期与时间函数汇总 Access,日期,与,时间,函数,