<一> 获取/设置目前日期时间函数
(1)Now ():返回系统目前的日期和时间。如:2007-3-29 早上10:38:22
(2)Today ():返回或设置系统目前的日期。
(3)TimeOfDay ():返回或设置系统目前的时间。
(4)DataString ():以“yyy-mm-dd”格式返回或设置系统目前时间。
(5)Timer ():以Double类型返回自午夜到今所经过的秒数和毫秒数,秒数是返回值的整数部分,毫秒数则是小数部分。
<二> 返回日期时间函数
(1)合并年月日成日期函数 DateSerial ()
格式:DateSerial (year As Integer , month As Integer , day As Integer ) As DateTime
说明:将参数所指定的年月日合并成日期返回,参数year的值须是介于1~9999的整数,若是介于0~99的整数,将被解释为1930~2029,若是小于1的整数,将自目前年底中减去;参数day的值须是介于1~31的整数,若是小于1的整数,将自目前日期中减去。例如:DateSerial (99,10,22) 会返回#1999-10-22#;DateSerial (99,10,22-23)会返回#1999-9-29”;DateSerial (99,10,22+3)会返回#1999-10-25#。
(2)将字符串转换成日期函数 DateValue ()
格式:DateValue (str As String) As Date Time
说明:将参数转换成日期返回。参数str是表示由1年1月00:00:00到9999年12月31日23:59:59之间日期/时间值的字符串表达式。例如:DateValue (“Februay , 12 , 1972”)会返回#1972-2-12#。
(3)合并时分秒成时间函数TimeSerial ()
格式:TimeSerial Chour As Integer , minute As Integer , Second As Integer ) As DateTime
说明:将参数所指定的时分秒合并成时间返回。参数hour的值必须是介于0~23的整数,若是小于1的整数,将自目前小时数中减去;参数minute和参数second的值须是介于0~59的整数,若是小于1的整数,将分别自目前分钟数与秒数中减去,例如:TimeSerial (12-6,-15,0)会返回上午06:45:00
(4)将字符串转换成时间函数TimeValue ()
格式:TimeValue (str As String) As DateTime
说明:将参数转换成时间返回。参数str是表示由1年1月1日00:00:00到9999年12月31日23:59:59之日期/时间值的字符串表达式。例如:TimeValue (“4:35:17 pm”) 会返回#下午04:35:17#。
(5)获取月份名称函数MonthName ()
格式:MonthName (month As Integer [ , abbreviate As Boolean]) As String
说明:根据参数month的值返回月份的名称,例如:MonthName (12)会返回“十二月”字符串,参数month的类型为Integer;选择性参数abbreViate类型为Boolean,用来表示月份的名称能否被缩写。
(6)获取星期几名称函数WeekdayName ()
格式:WeekdayName (weekday As Integer [, abbreviate As Boolean [, dayofweek As FirstDayOfWeek ]]) AS String
说明:根据参数weekday的值返回星期几的名称,默认情况下,1,2~7会分别返回“星期日”、“星期一”~“星期六”;abbreviate用来表示星期几的名称能否被缩写,而选择性参数dayofweek的类型为FirstDayOfWeek枚举,用来表示一星期的第几天,默认为FirstDayOfWeek.System (0),即采取系统设置中所指定的每周第一天,通常是星期日。如下表:
FirstDayOfWeek枚举成员 |
值 |
说明 |
FirstDayOfWeek.System |
0 |
系统设置指定每周的第一天(默认值) |
FirstDayOfWeek.Sunday |
1 |
星期日 |
FirstDayOfWeek.Monday |
2 |
星期一 |
FirstDayOfWeek.Tuesday |
3 |
星期二 |
FirstDayOfWeek.Webnesday |
4 |
星期三 |
FirstDayOfWeek.Thursday |
5 |
星期四 |
FirstDayOfWeek.Friday |
6 |
星期五 |
FirstDayOfWeek.Saturday |
7 |
星期六 |
<三> 计算日期时间函数
(1)日期时间增减函数DateAdd ()
格式:DateAdd (interval As DateInerVal , number As Double , dt As DateTime ) As DateTime
说明:将参数dt指定的日期加上number个intval。例如:DateAdd (“m”, 1, #11/25/1990#)会返回#1990/12/25#,其中interval为“m”,表示月份,number为“1”,dt为指定的日期,这个叙述的意义是将dt指定的日期加上1个月,DateAdd (“q”, 2, #2001/1/31#)会返回#2001/7/31#,也就是#2001/1/31#加上两个季。Interval属于DateInterVal枚举,成员如下表:
成员 |
值 |
说明 |
成员 |
值 |
说明 |
DateInterVal.Year |
yyyy |
年 |
DateInterVal.Quarte |
q |
季 |
DateInterVal.Month |
m |
月 |
DateInterVal.DayOfYear |
y |
一年中的第几天 |
DateInterVal.Day |
d |
日 |
DateInterVal.Hour |
h |
小时 |
DateInterVal.WeekOfYear |
ww |
一年中的第几周 |
DateInterVal.DayOfWeek |
|
一周中的星期几 |
DateInterVal.Minute |
n |
分钟 |
DateInterVal.Second |
s |
秒数 |
(2)日期时间差函数DateDiff ()
格式:DateDiff (interval As DateInterVal, dt1 As DateTime, dt2 As DateTime [, dayofweek As FirstDayOfWeek [, weekofyear As FirstWeekOfYear ]] As Long
说明:返回dat1和dat2 两个日期之间的间隔数,间隔单位为参数interval,例如:DateDiff (“m”,#12/15/1990#, ##1/10/1990# )会返回-11,即两个日期相间隔11个月(第一个参数指定间隔单位为月;DateDiff (“d”, #12/5/90# , #12/15/90# )会返回10,即两个日期间隔10天(第一个参数指定间隔单位为天)。
参数interval属于DateInterVal枚举;选择性参数dayofweek可以省略,用来指定哪一天为一周的第一天,属于FirstDateOfWeek枚举,其值有FirstDayWeek.System (0), FirstDayWeek.Sunday (1), FirstDayWeek.Monday (2), FirstDayWeek.Tuesday (3), FirstDayWeek.Wednesday (4), FirstDayWeek.Saturday (5), FirstDayWeek.Friday (6), FirstDayWeek.Satuday (7)等8种;选择性参数weekofyear可以省略,用来指定哪一周为一年的第一周,属于FirstWeekOfYear枚举,其值有FirstWeelkOfYear.System (0)系统默认值、FirstWeelkOfYear.Jan (1)一月一日当周、FirstWeelkOfYear.FirstFourDays (2)新年度至少有4天在该周、FirstWeelkOfYear.FirstFullWeek (3)新年度的第一个完整星期等4种;例如:DateDiff (“ww”, dat1, 1)会返回两个日期之间有几个星期日。
(3)获取日期时间的指定部份函数DatePart ()
格式:DatePart (interval As DateInterval, dt As DateTime [, dayofweek As FirstDayOfWeek [, weekofyear As FirstWeekOfYear ]])
说明:返回特定日期指定部分。例如DatePart (“y”, #9/11/92#)会返回天数255,因为9月11日为1992年的第255天;DatePart (“w”, #8/22/2000)会返回3,表示为星期二。DatePart ()函数的参数意义同DateDiff ()函数。