站长资源脚本专栏
VBS的字符串及日期操作相关函数
简介1. Asc(x),Chr(x):转换字符，字符码 2. Filter:搜寻字符串数组中的特定字符串 格式：v=filter(x,s[,include[,compare]]) 实例： Dim x()={"kjwang","wangkj","peter"} Dim v v=filter(x,"kj")
1. Asc(x),Chr(x):转换字符，字符码
2. Filter:搜寻字符串数组中的特定字符串
格式：v=filter(x,s[,include[,compare]])
实例：
Dim x()={"kjwang","wangkj","peter"}
Dim v
v=filter(x,"kj") '结果v(0)="kjwang",v(1)="wangkj"
v=filter(x,"kj",false) '结果v(0)="peter"
v=filter(x,"kj",true,vbTextCompare) '不分大小写搜寻
3. InStr:寻找字符串位置(InstrRev:倒过来寻找字符串）
格式：
v=instr(x,y) '从x字符串第1个字符起找出y字符串出现的位置
v=instr(n,x,y) '从x字符串第n个字符起找出y字符串出现的位置
格式：
v=InstrRev(x,s[,n[,Compare]])
4. Join:将字符串连接
格式：v=join(x[,d]）'d为分隔字符
5. Len(x):计算字符串x的长度
格式：v=len(x)
6. Left(x,n):返回字符串x左边n个字符(对应Right(x,n))
7. Mid:读取字符串x中间的字符
格式：v=mid(x,n,m)
8. LTrim(x),RTim(x),Trim(x)去空白字符
9. Replace:字符串取代
格式：v=Replace(x,s,r)
实例：x="i saw a saw a saw"
v=replace(x,"saw","so") 'v="i so a so a so"
10. Split:字符串分割
格式：v=split(s[,d])
实例：v=split("vb.net,iis6.0,asp.net",",")
'结果v(0)="vb.net",v(1)="iis6.0",v(2)="asp.net"
11. StrReverse:反转字符串
实例：v=strreverse("kjwang") 'v="gnawjk"
12. UCase(x),LCase(x):变换英文字母的大小写
实例：x="hello,VB中文!"
v=UCase(x) 'v="HELLO,VB中文！"
'日期相关:
1. 取出日期时间
1）DateValue(x),TimeValue(x)
格式：v=DateValue(x) :取出的“日期”部分
v=timevalue(x) '类上
2）Year(x),Month(x),Day(x)
格式：v=Year(x)
v=Month(x)
v=Day(x)
Hour(x),Minute(x),Second(x):取出时，分，秒
3）DateSerial(Y,M,D):合并年、月、日成为日期
实例：Dim v
v=DateSerial(1996,10,5) 'v=1996/10/5
TimeSerial(H,M,S):合并时、分、秒成为时间
2. Now:读取系统日期时间
格式：v=now
3. Timer:从凌晨12：00：00AM起所经过的秒数
格式：v=timer
4. DatePart(p,x):取出年、月、日等各部分的数值
实例：Dim X=#2/10/1996 16:45:30#
v=DatePart("yyyy",X) 'v=1996年
v=DatePart("m",X) 'v=2月
v=DatePart("d",X) 'v=10日
v=DatePart("h",X) 'v=16时
v=DatePart("n",X) 'v=45分
v=DatePart("s",X) 'v=30秒
v=DatePart("q",X) 'v=1季（第一季，春季）
v=DatePart("y",X) 'v=41天（1996年的第41天）
v=DatePart("ww",X) 'v=6周（1996年的第6周）
v=DatePart("w",X) 'v=7（第6周的第7天，即星期六）
5. DateAdd(p,n,x):加减若干时间后的新日期时间
格式：v=DateAdd(p,n,x) 'p值同上如："yyyy"、"m"等
实例：Dim x=#1/31/1996 16:45:30#
v=dateadd("yyyy",-3,x) '减3年，v=1993/1/31 16:45:30
6. DateDiff(p,x1,x2):计算两日期时间的差值 'p值同上
实例：dim x1=#12/31/1996 16:45:30#
x2=#2/10/1997 9:30:50#
v=datediff("yyyy",x1,x2) 'v=1年
7. FormatDateTime:日期时间的格式化
格式：v=formatdateyime(x[,日期格式])
日期格式值：DateFormat.GeneralDate 、 DateFormat.LongDate、
DateFotmat.ShortDate、DateFormat.LongTime、DateFormat.ShortTime
8. MonthName:返回月份名称
实例：v=monthname(5) 'v="五月"
9. WeekDayName:返回星期名称 '用法同8.
2. Filter:搜寻字符串数组中的特定字符串
格式：v=filter(x,s[,include[,compare]])
实例：
Dim x()={"kjwang","wangkj","peter"}
Dim v
v=filter(x,"kj") '结果v(0)="kjwang",v(1)="wangkj"
v=filter(x,"kj",false) '结果v(0)="peter"
v=filter(x,"kj",true,vbTextCompare) '不分大小写搜寻
3. InStr:寻找字符串位置(InstrRev:倒过来寻找字符串）
格式：
v=instr(x,y) '从x字符串第1个字符起找出y字符串出现的位置
v=instr(n,x,y) '从x字符串第n个字符起找出y字符串出现的位置
格式：
v=InstrRev(x,s[,n[,Compare]])
4. Join:将字符串连接
格式：v=join(x[,d]）'d为分隔字符
5. Len(x):计算字符串x的长度
格式：v=len(x)
6. Left(x,n):返回字符串x左边n个字符(对应Right(x,n))
7. Mid:读取字符串x中间的字符
格式：v=mid(x,n,m)
8. LTrim(x),RTim(x),Trim(x)去空白字符
9. Replace:字符串取代
格式：v=Replace(x,s,r)
实例：x="i saw a saw a saw"
v=replace(x,"saw","so") 'v="i so a so a so"
10. Split:字符串分割
格式：v=split(s[,d])
实例：v=split("vb.net,iis6.0,asp.net",",")
'结果v(0)="vb.net",v(1)="iis6.0",v(2)="asp.net"
11. StrReverse:反转字符串
实例：v=strreverse("kjwang") 'v="gnawjk"
12. UCase(x),LCase(x):变换英文字母的大小写
实例：x="hello,VB中文!"
v=UCase(x) 'v="HELLO,VB中文！"
'日期相关:
1. 取出日期时间
1）DateValue(x),TimeValue(x)
格式：v=DateValue(x) :取出的“日期”部分
v=timevalue(x) '类上
2）Year(x),Month(x),Day(x)
格式：v=Year(x)
v=Month(x)
v=Day(x)
Hour(x),Minute(x),Second(x):取出时，分，秒
3）DateSerial(Y,M,D):合并年、月、日成为日期
实例：Dim v
v=DateSerial(1996,10,5) 'v=1996/10/5
TimeSerial(H,M,S):合并时、分、秒成为时间
2. Now:读取系统日期时间
格式：v=now
3. Timer:从凌晨12：00：00AM起所经过的秒数
格式：v=timer
4. DatePart(p,x):取出年、月、日等各部分的数值
实例：Dim X=#2/10/1996 16:45:30#
v=DatePart("yyyy",X) 'v=1996年
v=DatePart("m",X) 'v=2月
v=DatePart("d",X) 'v=10日
v=DatePart("h",X) 'v=16时
v=DatePart("n",X) 'v=45分
v=DatePart("s",X) 'v=30秒
v=DatePart("q",X) 'v=1季（第一季，春季）
v=DatePart("y",X) 'v=41天（1996年的第41天）
v=DatePart("ww",X) 'v=6周（1996年的第6周）
v=DatePart("w",X) 'v=7（第6周的第7天，即星期六）
5. DateAdd(p,n,x):加减若干时间后的新日期时间
格式：v=DateAdd(p,n,x) 'p值同上如："yyyy"、"m"等
实例：Dim x=#1/31/1996 16:45:30#
v=dateadd("yyyy",-3,x) '减3年，v=1993/1/31 16:45:30
6. DateDiff(p,x1,x2):计算两日期时间的差值 'p值同上
实例：dim x1=#12/31/1996 16:45:30#
x2=#2/10/1997 9:30:50#
v=datediff("yyyy",x1,x2) 'v=1年
7. FormatDateTime:日期时间的格式化
格式：v=formatdateyime(x[,日期格式])
日期格式值：DateFormat.GeneralDate 、 DateFormat.LongDate、
DateFotmat.ShortDate、DateFormat.LongTime、DateFormat.ShortTime
8. MonthName:返回月份名称
实例：v=monthname(5) 'v="五月"
9. WeekDayName:返回星期名称 '用法同8.