《2022年ACCESS日期时间函数[ .pdf》由会员分享，可在线阅读，更多相关《2022年ACCESS日期时间函数[ .pdf（11页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、第 3 章日期、时间函数如何将文本型： 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, 订购日期 , 发货日期 ）从今天算起到三个月后
2、的日期之间的记录。Betweeb date() and adddate(3,date() 根据出生日期计算年龄（周岁）=IIf(Month(Date()-Month(出 生 年 月 日 )-1,Year(Date()-Year(出 生 年 月日),Year(Date()-Year(出生年月日 )-1) 自定义日期 / 时间格式 (Format 函数 ) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 11 页 - - - - - - - - - (:) 时间分隔符。在一些
3、区域，可能用其他符号来当时间分隔符。格式化时间值时，时间分隔符可以分隔时、分、秒。时间分隔符的真正字符在格式输出时取决于系统的设置。(/) 日期分隔符。在一些区域，可能用其他符号来当日期分隔符。格式化日期数值时，日期分隔符可以分隔年、月、日。日期分隔符的真正字符在格式输出时取决于系统设置。C 以 ddddd 来显示日期并且以 ttttt 来显示时间。如果想显示的数值无小数部分，则只显示日期部分，如果想显示的数值无整数部分，则只显示时间部分。D 以没有前导零的数字来显示日 (1 31) 。Dd 以有前导零的数字来显示日 (01 31) 。ddd 以简写来表示日 (Sun Sat) 。dddd 以
4、全称来表示日 (Sunday Saturday) 。ddddd 以完整日期表示法显示（包括年、月、日），日期的显示要依系统的短日期格式设置而定。缺省的短日期格式为 m/d/yy 。dddddd 以完整日期表示法显示日期系列数（包括年、月、日），日期的显示要依系统识别的长日期格式而定。缺省的长日期格式为 mmmm dd, yyyy。aaaa 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 11 页 - - - - - - - - - 与 dddd 一样，它只是该字符串的本地
5、化版本。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
6、 以两位数来表示年 (00 99) 。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 11 页 - - - - - - - - - yyyy 以四位数来表示年 (00 99) 。H 以没有前导零的数字来显示小时 (0 23) 。Hh 以有前导零的数字来显示小时 (00 23) 。N 以没有前导零的数字来显示分 (0 59) 。Nn 以有前导零的数字来显示分 (00 59) 。S 以没有前导零的数字来显示秒 (0 59) 。Ss 以有前导零的数字来显示秒 (00 59) 。
7、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 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 11 页 - - - - - - - -
8、- 在中午前以 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
9、/PM。日期函数示例当天日期： =Date() 当日： =Day(date) 当月： =Month(date() 当年： =Year(date() 当季： =DatePart(q,Date() 把日期大写Function Date2Chinese(iDate) Dim num(10) Dim iYear Dim iMonth 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 11 页 - - - - - - - - - Dim iDay num(0) = num(1) =
10、一 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 Date
11、2Chinese = Date2Chinese +十 + 月 Else Date2Chinese = Date2Chinese +十 + num(iMonth Mod 10) + 月 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 11 页 - - - - - - - - - End If Else Date2Chinese = Date2Chinese +num(iMonth Mod 10) + 月 End If If iDay = 10 Then If iDay =
12、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 Date2Chin
13、ese = Date2Chinese + num(iDay Mod 10) + 日 End If End Function 算出每个月的天数一法：Dim a, b, c a = Year(Now() 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 11 页 - - - - - - - - - b = Month(Now() c = Format(a & / & b + 1 & /1), #) - Format(a & / & b & /1), #) 二法：DateDiff
14、(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
15、 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 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 11 页 - - - - - - - - - Print A & 年 &
16、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 E
17、nd 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 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第
18、9 页，共 11 页 - - - - - - - - - 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 到月底的天数
19、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 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 -
20、- - - - - - 第 10 页，共 11 页 - - - - - - - - - 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 的日期 ; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 11 页 - - - - - - - - -