asp实现计算两个时间内的工作日的函数_应用技巧

<%
'******************************
'函数：workdays(date_begin , date_end)
'参数：date_begin,开始日期；date_end,结束日期
'作者：阿里西西
'日期：2007/7/15
'描述：计算两个时间内的工作日
'示例：workdays("2007-05-18" , "2007-05-21")
'******************************
function workdays(date_begin , date_end)
 date_begin = CDate(date_begin)
 date_end = CDate(date_end)
 if IsDate(date_begin) and IsDate(date_end) then
  workdays = 0
  for d=0 to datediff("d" , date_begin , date_end)
   if weekday(date_begin + d) <> 1 and weekday(date_begin + d) <> 7 then
    workdays = workdays + 1
   end if
  next
 else 
  workdays = "未知"
 end if
end function
%>

时间： 2024-09-30 04:23:39

asp实现计算两个时间内的工作日的函数_应用技巧的相关文章

asp实现计算两个时间内的工作日的函数

<% '****************************** '函数:workdays(date_begin , date_end) '参数:date_begin,开始日期:date_end,结束日期 '作者:阿里西西 '日期:2007/7/15 '描述:计算两个时间内的工作日 '示例:workdays("2007-05-18" , "2007-05-21") '****************************** function workd

ASP UTF-8编码下字符串截取和获取长度函数_应用技巧

复制代码 代码如下: '************************************ '截取文字长度函数,支持UTF-8 '输入参数: ' 1.文字内容 ' 2.文字最大长度 '************************************ Public Function Cut_Title(Title,TLen) Dim k,i,d,c Dim iStr Dim ForTotal If CDbl(TLen) > 0 Then k=0 d=StrLen(Title) iSt

asp.net(c#)获取内容第一张图片地址的函数_实用技巧

首先找到内容里面第一个<img标签的位置,然后找到从这个起的第一个>的位置,得到第一张图片的完整标签. 然后通过分隔空格得到图片的各个属性和属性值,提取src的值就是图片的地址 代码如下: 复制代码 代码如下: /// <summary> /// 获取文中图片地址 /// </summary> /// <param name="content">内容</param> /// <returns>地址字符串</r

asp.net 验证字符串是否为纯数字检测函数_实用技巧

复制代码 代码如下: #region 判断是否为数字的方法 public bool isnumeric(string str) { char[] ch=new char[str.Length]; ch=str.ToCharArray(); for(int i=0;i<ch.Length;i++) { if(ch[i]<48 || ch[i]>57) return false; } return true; } #endregion

asp.net 字符串、二进制、编码数组转换函数_实用技巧

1.字符串转二进制数组 string content="这是做个测试!"; System.Text.UnicodeEncoding converter = new System.Text.UnicodeEncoding(); byte[] byteArr = converter.GetBytes(content); 2.二进制数组转为字符串 复制代码 代码如下: System.Text.UnicodeEncoding converter = new System.Text.Unicod

asp.net(vb)实现金额转换成大写的函数_实用技巧

复制代码 代码如下: ''' <summary> ''' 将数据转换为Double数字 ''' </summary> ''' <param name="Obj"></param> ''' <returns></returns> ''' <remarks></remarks> Public Shared Function todbl(ByVal Obj As Object) As Double

asp 生成任意英文+数字位数长度的随机码函数_应用技巧

<% '****************************** '函数:Generator(Length) '参数:Length,任意长度的数值,随机码位数 '作者:阿里西西 '日期:2007/7/15 '描述:生成任意英文+数字位数长度的随机码函数 '示例:Generator(80) '****************************** Function Generator(Length)  Dim i, tempS  tempS = "abcdefghijklmnopq

asp 验证用户名是否包含有非常字符的函数_应用技巧

<% '****************************** '函数:IsValidUserName(byVal UserName) '参数:UserName,用户名称 '作者:阿里西西 '日期:2007/7/15 '描述:验证用户名是否包含有非法字符,不含非法字符返回:true '示例:IsValidUserName(byVal UserName) '****************************** Function IsValidUserName(byVal UserNa

asp下实现对HTML代码进行转换的函数_应用技巧

<% '****************************** '函数:HTMLEncode(reString) '参数:reString,待编码转换处理的字符串 '作者:阿里西西 '日期:2007/7/15 '描述:对HTML代码进行转换 '示例:HTMLEncode("<p>欢迎访问<br>阿里西西</p>") '****************************** Function HTMLEncode(reString)