Function RegExpTest(patrn, strng) Dim regEx, Matches Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = True ‘为真则忽略大小写，否则严格匹配大小写 regEx.Global = True Set Matches = regE...
http://www.jb51.net//article/9226.htm
[html]<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd"><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>无标题文档</title><script&n...
http://www.jb51.net//article/6596.htm
如何计算出当前日期属于定义时间段内的第几星期？FunctionCalculateWeekNo(BeginDate,EndDate,InputDate)dimwdate(500,8)z=0x=0strlong=len(CStr(inputdate))-9inputdate=cdate(left(CStr(inputdate),strlong))fori=cdate(BeginDate)tocdate(EndDate) ifinputdate=ithen x=z ExitFor endif ...
http://www.jb51.net//article/4752.htm
共有:3/10，当前1/1页
[首页] [上一页]
1
[下一页] [尾页]
转到：