ACCESS 日期时间函数.docx

第 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", [订购日期], [发货日期]） 从今天算起到三个月后的日期之间的记录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/yydddddd以完整日期表示法显示日期系列数（包括年、月、日），日期的显示要依系统识别的 长日期格式而定缺省的长日期格式为 mmmm dd, yyyyaaaa与 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:ssAM/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 iMonthDim iDaynum(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 ThenIf iMonth = 10 ThenDate2Chinese = Date2Chinese +"十" + "月"ElseDate2Chinese = Date2Chinese +" 十" + num(iMonth Mod 10) + "月"End IfElseDate2Chinese = Date2Chinese +num(iMonth Mod 10) + " 月"End IfIf iDay >= 10 ThenIf iDay = 10 ThenDate2Chinese = Date2Chinese +"十" + "日" ElseIf iDay = 20 Or iDay = 30 ThenDate2Chinese = Date2Chinese + num(iDay \ 10) + " 十" + "日" ElseIf iDay > 20 ThenDate2Chinese = Date2Chinese + num(iDay \ 10) + "十" + num(iDayMod 10) + "日"ElseDate2Chinese = Date2Chinese + "十" + num(iDay Mod 10) + "日" End IfElseDate2Chinese = Date2Chinese + num(iDay Mod 10) + " 日"End If End Function算出每个月的天数一法：Dim a, b, ca = 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.ClsFor i = 1 To 12C = A & "-" & i & "-1"B = Weekday(C) Select Case B Case vbSundayPrint A & "年"&i&"月 1 日是星期日"Case vbMondayPrint A & "年"&i&"月 1 日是星期一"Case vbTuesdayPrint A & "年"&i&"月 1 日是星期二"Case vbWednesdayPrint A & "年" &i&"月 1 日是星期三"Case vbThursdayPrint A & "年" &i&"月 1 日是星期四"Case vbFridayPrint A & "年" &i&"月 1 日是星期五"Case vbSaturdayPrint A & "年" &i&"月 1 日是星期六"End SelectNext iEnd Sub计算天数及月初月末日期Function 本月天数(日期 As Date) As Byte本月天数 = DateSerial(Year(日期), Month(日期) + 1, Day(日期)) - 日期End FunctionFunction 月末(日期 As Date) As Date月末 = DateSerial(Year(日期), Month(日期) + 1, 1) - 1 End FunctionFunction 月初(日期 As Date) As Date月初 = 日期 - Day(日期) + 1 End Function本月最后一日是周几SELECTWeekday(DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1)-1)) AS 本月最后一日是周几,下月最。