函数 语法 说明 示例 Now Now() 取得系统当前的日期和时间 Dim MyVar MyVar = Now '' MyVar 包含当前的日期和时间。 Date Date() 取得系统当前的日期 Dim MyDate MyDate = Date '' MyDate 包含当前系统日期。 Time Time() 取得系统当前的时间 Dim MyTime MyTime = Time '' 返回当前系统时间。 Year Year(Date) 取得给定日期的年份 Dim MyDate, MyYear MyDate = #October 19, 1962#
函数 语法 说明 示例
Now Now() 取得系统当前的日期和时间 Dim MyVar MyVar = Now '' MyVar 包含当前的日期和时间。 Date Date() 取得系统当前的日期 Dim MyDate MyDate = Date '' MyDate 包含当前系统日期。 Time Time() 取得系统当前的时间 Dim MyTime MyTime = Time '' 返回当前系统时间。 Year Year(Date) 取得给定日期的年份 Dim MyDate, MyYear MyDate = #October 19, 1962# ''分派一日期。 MyYear = Year(MyDate) '' MyYear 包含 1962。 Month Month(Date) 取得给定日期的月份 Dim MyVar MyVar = Month(Now) '' MyVar包含当前月对应的数字。 Day Day(Date) 取得给定日期是几号 Dim MyDay MyDay = Day("October 19, 1962") ''MyDay包含 19。 Hour Hour(time) 取得给定时间是第几小时 Dim MyTime, MyHour MyTime = Now MyHour = Hour(MyTime) '' MyHour 包含代表当前时间的数值。 Minute Minute(time) 取得给定时间是第几分钟 Dim MyVar MyVar = Minute(Now) Second Second(time) 取得给守时间是第几秒 Dim MySec MySec = Second(Now) ''MySec 包含代表当前秒的数字。 WeekDay WeekDay(Date) 取得给定日期是星期几的整数，1表示星期日，2表示星期一，依此类推 Dim MyDate, MyWeekDay MyDate = #October 19, 1962# '' 分派日期 MyWeekDay = Weekday(MyDate) '' MyWeekDay 包含 6,MyDate 代表星期五 DateDiff DateDiff("Var",Var1,Var2) Var:日期或时间间隔因子，有如下参数： yyyy 年 m月 d 日 ww星期 h小时 s秒 Var1:第一个日期或时间 Var2:第二个日期或时间，比Var1晚 计算两个日期或时间的间隔 DateDiff("d",Date(),#1/1/2005#) ''返回离2005元旦还有多少 DateDiff("h",Date(),#1/1/2005#) ''返回离2005元旦还有多少小时 DateDiff("d",#1/1/2003#,#1/1/2005#) ''返回两个日期之间的天数 DateAdd DateDiff("Var",Var1,Var2) Var:日期或时间间隔因子： Var1:日期或时间间隔倍数 Var2:日期或时间的基准 对两个日期或时间作加法 如下示例将 95 年 1 月 31 日加上一个月：
精品推荐