在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
基本函数 date() 获取日期,格式:2004-2-28 time() 获取时间,格式:22:24:59 now() 获取日期和时间 格式: 2005-5-2 22:37:30 使用方法: d=date() 获取年份:year(d) 获取月份:month(d) 获取日子:day(d) 获取星期几:weekday(d) t=time() 获取小时:hour(t) 获取分钟:minute(t) 获取秒数:second(t) ======================================== 日期相加函数:DateAdd(interval, number, date) 可用该函数从日期中添加或减去指定时间间隔。 参数说明: interval-运算的基准间隔 number-加上多少,可为负数 date-基准日期 下面是interval的可选值,注意加上引号:
举例: 1、计算明天: tomorrow=DateAdd("d",1,date()) 2、2012年12月1日的前一天: preday=DateAdd("d",-1,"2012-12-1") 更详细用法请搜索。 ======================================== 日期间隔函数-DateDiff(interval, date1, date2[, firstdayofweek][, firstweekofyear]]) 计算两个日期之间相差的间隔。 例如,可以使用 DateDiff 来计算两个日期之间相隔几日,或计算从今天起到年底还有多少个星期。如果date1比date2 晚,则返回负数。 参数说明: interval-同DateAdd()函数 Date1,date2 -进行运算的两个日期 可选参数: firstdayofweek- 指定一个星期的第一天的常数。如果未予指定,则以星期日为第一天。 当计算两个日期相差几周时(时间间隔符号 “w” 或 “ww”),该参数会影响结果。具体请搜索。 firstweekofyear-指定一年的第一周怎么确定,如果未予指定,则以包含 1 月 1 日的星期为第一周。具体请搜索。 ======================================== 其他函数: DateSerial(year, month, day) -将数值换算为日期变量,返回值类型同date()函数。例如,如果day=35,则自动计算到下个月。再例如,DateSerial(1990 - 10, 8 - 2, 1 - 1) 则计算1990 年8月1日的十年零两个月又一天 之前的日期,也就是1980年5月31日。 DatePart(interval, date[,firstdayofweek[, firstweekofyear]]) -返回指定时间部分的数值。例如,可以使用DatePart 计算某个日期是星期几或目前为几点钟。参数同上面。 DateValue(date)-将各种日期格式串转化为日期变量,返回值类型同date()函数。例如,除了 12/30/1991 和 12/30/91 之外,DateValue 也识别 December 30, 1991 和 Dec 30, 1991。 TimeValue(time)-将各种时间格式串转化为时间变量。原理同DateValue。 TimeSerial(hour, minute, second) -将数值转化为时间变量,返回值类型和time()函数相同。原理同DateSerial。 Timer()-午夜开始到现在经过的秒数。 以下是使用例子: now() 获取当前系统日期和时间,asp输出可以这样写:<%=now()%> Year(now()) 获取年份, ASP输出:<%=Year(now())%> Month(now()) 获取当前月份,ASP输出:<%=Month(now())%> day(now()) 获取当天数,ASP输出:<%=day(now())%> Minute(now()) 获取分钟数,ASP输出:<%=Minute(now())%> Second(now()) 获取秒钟数,ASP输出:<%=Second(now())%> date() 获取当前系统日期,格式为:2004-2-28 time() 获取当前系统时间,格式为:22:24:59 DateAdd函数(时间向后) DateAdd("h",13,Now())其中"h"代表小时,13代表加上13小时,now()是现在的日期时间,也可以"h"可以改变: 设置 描述 yyyy 年 q 季度 m 月 y 一年的日数 d 日 w 一周的日数 ww 周 h 小时 n 分钟 s 秒 用时间间隔的方法减去一定的天数 复制代码 代码如下: Function Date1() Dim NewTime as DateTime NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) ) NewTime = NewTime.Format("MM/dd/yyyy", DateTimeFormatInfo) response.write(NewTime) End Function 使用加负天数的方法减去一定的天数 复制代码 代码如下: Public Function Date2() Dim NewTime as DateTime NewTime = DateTime.Now.AddDays(-7) Dim s as string = NewTime return s End Function 返回日期名称字符串 复制代码 代码如下: Function Date3() Dim NewTime as DateTime = now.addDays(-7) response.write(System.String.Format("{0:MM/dd/yyyy}",NewTime)) End Function Function Date4() Dim NewTime as DateTime NewTime = now.addDays(-7) return NewTime.ToString() End Function 使用长时间模式 复制代码 代码如下: Public Function Date5() Dim NewTime as DateTime NewTime = Now() return newtime.toLongTimeString() End Function 使用短时间模式 复制代码 代码如下: Public Function Date6() Dim NewTime as DateTime NewTime = Now() return newtime.toShortTimeString() End Function 使用长日期模式 复制代码 代码如下: Public Function Date7() Dim NewTime as DateTime NewTime = Now() return newtime.toLongDateString() End Function 使用短日起模式 复制代码 代码如下: Public Function Date8() Dim NewTime as DateTime NewTime = Now() return newtime.toShortDatestring() End Function 格式化日期函数 格式化成通用格式 复制代码 代码如下: Function Date9() Dim NewTime as DateTime NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) ) return formatdatetime(NewTime, 0) End Function 格式化成长日期格式 复制代码 代码如下: Function Date10() Dim NewTime as DateTime NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) ) return formatdatetime(NewTime, 1) End Function 格式化成短日期格式 复制代码 代码如下: Function Date11() Dim NewTime as DateTime NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) ) return formatdatetime(NewTime, 2) End Function 格式化成长时间格式 复制代码 代码如下: Function Date12() Dim NewTime as DateTime NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) ) return formatdatetime(NewTime, 3) End Function 格式化成短时间格式 复制代码 代码如下: Function Date13() Dim NewTime as DateTime NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) ) return formatdatetime(NewTime, 4) End Function 单独显示时间的年,月,日等部分 显示日期 复制代码 代码如下: Function Date14() Dim NewTime as DateTime = now.addDays(-7) dim s as string s = (System.String.Format("{0:dddd}",NewTime)) Return s End Function 返回日期的一周中的第几天 复制代码 代码如下: Function Date15() Dim MyDate as DateTime Dim MyWeekDay as Integer MyDate = Now.AddDays(-5) MyWeekDay = Weekday(MyDate) return MyWeekDay End Function 返回月份值 复制代码 代码如下: Function Date16() Dim MyDate as DateTime Dim MyMonth as Integer MyDate = Now.AddDays(-5) MyMonth = Month(MyDate) return MyMonth End Function 返回一个格式化后的字符串 复制代码 代码如下: Function Date17() Dim MyDate as String MyDate = Format(Now(), "yyyy") return MyDate End Function DateDiff 函数 返回 Variant (Long) 的值,表示两个指定日期间的时间间隔数目。 语法 DateDiff(interval, date1, date2[, firstdayofweek][, firstweekofyear]]) DateDiff 函数语法中有下列命名参数: 部分 描述 interval 必要。字符串表达式,表示用来计算date1 和 date2 的时间差的时间间隔 Date1□date2 必要;Variant (Date)。计算中要用到的两个日期。 Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定,则以星期日为第一天。 firstweekofyear 可选。指定一年的第一周的常数。如果未予指定,则以包含 1 月 1 日的星期为第一周。 设置 interval 参数的设定值如下: 设置 描述 yyyy 年 q 季 m 月 y 一年的日数 d 日 w 一周的日数 ww 周 h 时 n 分钟 s 秒 firstdayofweek 参数的设定值如下: 常数 值 描述 vbUseSystem 0 使用 NLS API 设置。 vbSunday 1 星期日(缺省值) vbMonday 2 星期一 vbTuesday 3 星期二 vbWednesday 4 星期三 vbThursday 5 星期四 vbFriday 6 星期五 vbSaturday 7 星期六 常数 值 描述 vbUseSystem 0 用 NLS API 设置。 vbFirstJan1 1 从包含 1 月 1 日的星期开始(缺省值)。 vbFirstFourDays 2 从第一个其大半个星期在新的一年的一周开始。 vbFirstFullWeek 3 从第一个无跨年度的星期开始。 说明 DateDiff 函数可用来决定两个日期之间所指定的时间间隔数目。例如,可以使用 DateDiff 来计算两个日期之间相隔几日,或计算从今天起到年底还有多少个星期。 为了计算 date1 与 date2 相差的日数,可以使用“一年的日数”(y) 或“日”(d)。当 interval 是“一周的日数”(w) 时,DateDiff 返回两日期间的周数。如果 date1 是星期一,DateDiff 计算到 date2 为止的星期一的个数。这个数包含 date2 但不包含 date1。不过,如果 interval 是“周”(ww),则 DateDiff 函数返回两日期间的“日历周”数。由计算 date1 与 date2 之间星期日的个数而得。如果 date2 刚好是星期日,则 date2 也会被加进 DateDiff 的计数结果中;但不论 date1 是否为星期日,都不将它算进去。 如果 date1 比 date2 来得晚,则 DateDiff 函数的返回值为负数。 firstdayofweek 参数会影响使用时间间隔符号 “W” 或 “WW” 计算的结果。 如果 date1 或 date2 是日期文字,则指定的年份成为该日期的固定部分。但是,如果 date1 或 date2 用双引号 (" ") 括起来,且年份略而不提,则在每次计算表达式 date1 或 date2 时,当前年份都会插入到代码之中。这样就可以书写适用于不同年份的程序代码。 在计算 12 月 31 日和来年的 1 月 1 日的年份差时,DateDiff 返回 1 表示相差一个年份,虽然实际上只相差一天而已。 |
请发表评论