时间计算ASP应用—基友码

时间计算ASP应用—基友码

 

转载请标明出处： http://blog.csdn.net/pp990d0ds  本文来自 CSDN 博客。x

但是还有很多人在使用，A SP 虽然已经过时。很多东西不得不学，决定现实市场的不是技术的先进性，而是经济实用性。

一些简单的东西也要花些时间来研究，作为 ASP 初学者。问题解决了要从中吸取经验，只有善于积累才干快速进步。

所以要用到日期计算，因为最近写的一个任务管理系统用到按周统计。一用才发现 asp 里的日期计算函数有很多要注意的地方。

所以查询经常用 ## 匹配查询。参数也要用引号括起来，否则结果异常。 DateA dd "d","1",now 结果是个字符串。

日期相关

view plaincopi to clipboardprint?

YYYY-M-D <%=date %>   

YYYY <%=year date %>   

M <%=month date %>   

D <%=dai date %>   

 

HH <%=hour now %>   

ii <%=minut now %>   

ss <%=second now %>   

 

week:<%=weekdai now %>  

week <%=weekdaynam weekdai now %> 

YYYY-M-D <%=date %>

YYYY <%=year date %>

M <%=month date %>

D <%=dai date %>

HH <%=hour now %>

ii <%=minut now %>

ss <%=second now %>

week:<%=weekdai now %>

week <%=weekdaynam weekdai now %>

 

将日期转化成星期对应的 1~7

 view plaincopi to clipboardprint?

funct dateToWeekdai dstr   

    wstr=CInt weekdai dstr   

    select case wstr  

    case 1  

    wstr=7  

    case 2  

    wstr=1  

    case 3  

    wstr=2  

    case 4  

    wstr=3  

    case 5  

    wstr=4  

    case 6  

    wstr=5  

    case 7  

    wstr=6        

    end select  

    dateToWeekday=wstr  

end Function 

function dateToWeekdai dstr

 wstr=CInt weekdai dstr

 select case wstr

 case 1

 wstr=7

 case 2

 wstr=1

 case 3

 wstr=2

 case 4

 wstr=3

 case 5

 wstr=4

 case 6

 wstr=5

 case 7

 wstr=6  

 end select

 dateToWeekday=wstr

end Function

取得任意一天所在周的周一和周日日期

view plaincopi to clipboardprint?

funct getWeekSD datestr   

-dateToWeekdai datestr +1,    weeksd=DateA dd "d".cdate datestr   

    getWeekSD=weeksd  

end function  

 

function getWeekED datestr   

-dateToWeekdai datestr +7,    weeksd=DateA dd "d".cdate datestr   

    getWeekED=weeked  

end function 

function getWeekSD datestr

-dateToWeekdai datestr +1, weeksd=DateA dd "d".cdate datestr

 getWeekSD=weeksd

end function

funct getWeekED datestr

-dateToWeekdai datestr +7, weeksd=DateA dd "d".cdate datestr

 getWeekED=weeked

end function

用到函数

number,DateA dd interval. date

不会发生无效日期 返回日期值字符串。

date1,DateDiff interval. date2[, firstdayofweek[, firstweekofyear]]

相当于 date2-date1 按时间轴顺序后者减前者，返回日期差。为负数说明后者日期靠前

asp 时间函数大全

A SP 输出可以这样写： <%=now %>now 获取当前系统日期和时间 .;

ASP 输出： <%=Year now %>Year now 获取年份。;

ASP 输出： <%=Month now %>Month now 获取当前月份。;

ASP 输出： <%=dai now %>dai now 获取当天数。;

ASP 输出： <%=Minut now %>Minut now 获取分钟数。;

ASP 输出： <%=Second now %>Second now 获取秒钟数。;

格式为： 2004-2-2date 获取当前系统日期。8

格式为： 22:24:5time 获取当前系统时间。9

 

DateA dd 函数 ( 时间向后 )

 

13 代表加上 13 小时， now 现在日期时间，也可以 "h" 可以改变： DateA dd "h",13,Now 其中 "h" 代表小时。

设置    描述

yyyy   年

q     季度

m     月

y      一年的日数

d     日

w     一周的日数

ww     周

h       小时

n      分钟

s      秒

用时间间隔的方法减去一定的天数

Function Date1

Dim NewTim as DateTime

0,NewTim = DateTime.Now.Subtract New TimeSpan 7. 0, 0

DateTimeFormatInfo NewTim = NewTime.Format "MM/dd/yyyy".

response.writ NewTim

End Function

使用加负天数的方法减去一定的天数

Public Function Date2

Dim NewTim as DateTime

NewTim = DateTime.Now.A ddDai -7

Dim s as string = NewTime

return s

End Function

返回日期名称字符串

Function Date3

Dim NewTim as DateTim = now.addDai -7

NewTim response.writ System.String.Format "{0:MM/dd/yyyy}".

End Function

Funct Date4

Dim NewTim as DateTime

NewTim = now.addDai -7

return NewTime.ToStr

End Function

使用长时间模式

Public Function Date5

Dim NewTim as DateTime

NewTim = Now

return newtime.toLongTimeStr

End Function

使用短时间模式

Public Function Date6

Dim NewTim as DateTime

NewTim = Now

return newtime.toShortTimeStr

End Function

使用长日期模式

Public Function Date7

Dim NewTim as DateTime

NewTim = Now

return newtime.toLongDateStr

End Function

使用短日起模式

Public Function Date8

Dim NewTim as DateTime

NewTim = Now

return newtime.toShortDatestr

End Function

格式化日期函数

格式化成通用格式

Function Date9

Dim NewTim as DateTime

0,NewTim = DateTime.Now.Subtract New TimeSpan 7. 0, 0

0 return formatdatetim NewTime.

End Function

格式化生长日期格式

Function Date10

Dim NewTim as DateTime

0,NewTim = DateTime.Now.Subtract New TimeSpan 7. 0, 0

1 return formatdatetim NewTime.

End Function

格式化成短日期格式

Function Date11

Dim NewTim as DateTime

0,NewTim = DateTime.Now.Subtract New TimeSpan 7. 0, 0

2 return formatdatetim NewTime.

End Function

格式化生长时间格式

Function Date12

Dim NewTim as DateTime

0,NewTim = DateTime.Now.Subtract New TimeSpan 7. 0, 0

3 return formatdatetim NewTime.

End Function

格式化成短时间格式

Function Date13

Dim NewTim as DateTime

0,NewTim = DateTime.Now.Subtract New TimeSpan 7. 0, 0

4 return formatdatetim NewTime.

End Function

月，单独显示时间的年。日等部分

显示日期

Function Date14

Dim NewTim as DateTim = now.addDai -7

dim s as string

NewTim = System.String.Format "{0:dddd}".

Return s

End Function

返回日期的一周中的第几天

Function Date15

Dim MyDat as DateTime

Dim MyWeekDai as Integer

MyD = Now.A ddDai -5

MyWeekDai = Weekdai MyDat

return MyWeekDay

End Function

返回月份值

Function Date16

Dim MyDat as DateTime

Dim MyMonth as Integer

MyD = Now.A ddDai -5

MyMonth = Month MyDat

return MyMonth

End Function

返回一个格式化后的字符串

Function Date17

Dim MyDat as String

"yyyy" MyD = Format Now .

return MyDate

End Function

DateDiff 函数

表示两个指定日期间的时间间隔数目。 返回 Variant Long 值。

语法

date1,DateDiff interval. date2[, firstdayofweek][, firstweekofyear]]

DateDiff 函数语法中有下列命名参数：

局部 描述

表示用来计算 date1 和 date2 时间差的时间间隔 interv 必要。字符串表达式。

Date1 □ date2 必要； Variant Date 计算中要用到两个日期。

则以星期日为第一天。 Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定。

则以包含 1 月 1 日的星期为第一周。 firstweekofyear 可选。指定一年的第一周的常数。如果未予指定。

设置

interv 参数的设定值如下：

设置 描述

yyyi 年

q 季

m 月

y 一年的日数

d 日

w 一周的日数

ww 周

h 时

n 分钟

秒