vbrtrim函数_VB中常用函数

VB提供很多函数，利用函数可以简化程序，以下列出了一些常用函数：

一、算术函数

1、Abs()

返回数值表达式的绝对值。

如：Abs(-3)=3

2、Int()

向下取整。

如：Int(3.25)=3，Int(-3.25)=-4

3、Fix()

取整函数。

如：Fix(3.25)=3，Fix(-3.25)=-3

4、Round([,])

按指定位数四舍五入。

如：Round(3.2553,1)=3.3，Round(3.754,0)=4

5、sqr()

计算平方根。

如：sqr(9)=3

6、Rnd()

Int(Rnd*(b-a)+a ):在[a，b

)区间内产生随机整数

Randomize[(x)]

： 每次运行时，要产生不同序列的随机数

如：

产生1-100的随机数： Int(Rnd *100)+1

产生一个二位数： Int(Rnd*90)+10

产生1-30的随机数： Int(Rnd*30)+1

二、字符串函数

1、InStr([Start,],[,Compare])

求str2在字符串str1中最早出现的位置(Start设置开始查找位置，缺省为1；Compare指定比较方法：0为二进制比较，1为不区分大小写，2用于数据库信息比较)。

如：str1=”98765”

Str2=”65”

S=InStr(str1,str2) ‘返回4

S=InStr(3,"aSsiAB","a",1) ‘返回5 从字符s开始找，不区分大小写

2、Len(或)

返回字符串所含字符数。

如：Dim str As String*10

Dim i

Str=”123”

i=12

len1=Len(“12345”) ‘返回5

len2=Len(12) ‘出错

len3=Len(i) ‘返回2

len4=Len(“考试中心”) ‘返回4

len5=Len(str) ‘返回10

3、字符串截取函数

Left(,) ‘从字符串左边起截取N个字符

Right(,) ‘从字符串右边起截取N个字符

Mid(,,) ‘从字符串第N1个起截取N2个字符(如果N2省

略，则从N1个起截到底)

如：str1=”opqrst”

Str2=”计算机等级考试”

Str=Left(str1,3) ‘返回“opq”

Str=Left(str2,4) ‘返回“计算机等”

Str=Right(str1,2) ‘返回“st”

Str=Left(str2,2) ‘返回“考试”

Str=Mid(str1,4,2) ‘返回“rs”

Str=Mid(str2,4) ‘返回“计算机等级考试”

4、Space()

返回数值表达式值指定的空格字符数。

如： st1r

Space(3) ‘返回3个空格字符

5、Ucase() ‘小写转换成大写

Lcase() ‘大写转换成小写

如： str1

=Ucase(“fHkrYt”) ‘返回”FHKRYT”

Str2

=Lcase(“fHkrYt”) ‘返回”fhkryt”

6、LTrim() ‘删除字符串的左边开始空格

RTrim() ‘删除字符串的右边(尾部)空格

Trim() ‘删除字符串的开始和尾部空格

三、日期/时间函数

1、获取系统日期和时间函数

Date() ‘返回系统日期,2010-11-10

Time() ‘返回系统时间,9:45:00

Now() ‘返回系统日期和时间,2010-11-10 9:45:30

2、截取日期分量

Year() ‘返回日期表达式年份整数

Month() ‘返回日期表达式月份整数

Day() ‘返回日期表达式日期整数

WeekDay() ‘返回日期表达式1-7的整数

3、截取时间分量

Hour() ‘返回时间表达式小时数

Minute() ‘返回时间表达式分钟数

Second() ‘返回时间表达式秒数

4、日期/时间增加或减少一个时间间隔

DateAdd(,,)

对表达式表示的日期按照间隔参数表示时间间隔减去指定的时间间隔。

如：

D=#2004-2-29 10:40:11#

D1=DateAdd(“yyyy”,3,D) ‘返回#2007-2-29

10:40:11#,日期加3年

D2=DateAdd(“q”,1,D) ‘返回#2004-5-29 10:40:11#,日期加1季度

D3=DateAdd(“m”,-2,D) ‘返回#2003-12-29 10:40:11#,日期减2月

D4=DateAdd(“d”,3,D) ‘返回#2004-3-3 10:40:11#,日期加3日

D5=DateAdd(“ww”,2,D) ‘返回#2004-3-14 10:40:11#,日期加2周

D6=DateAdd(“n”,-150,D) ‘返回#2004-2-29

8:10:11#,日期减150分钟

间隔类型：

设置 描述

yyyy 年

q 季

m 月

y 一年的日数

d 日

w 一周的日数

ww 周

h 时

n 分

s 秒

5、计算两个日期间隔值函数

DateDiff(,,[,W1][,W2])

返回日期1和日期2之间按照间隔类型的时间间隔数目。

说明：W1为可选项，指定一星期的第一天是星期几的常数，省略为vbSunday即周日返回1；W2可选项，指定一年的第一周的常数，缺省为vbFirstJanl即1月1日的星期为第一周即：

常数 值 描述

vbFirstJanl 1 从包含1月1日的星期开始(缺省)

vbFirstFourDays 2 从第一个其大半个星期在新的一年的一周开始

vbFirstWeek 3 从第一个无跨年的星期开始

如：

D1=#2003-5-28 20:8:36#

D2=#2004-2-29 10:40:11#

n1=DateDiff(“yyyy”,D1,D2) 返回1 间隔为1年

n2=DateDiff(“q”,D1,D2) 返回3

间隔为3季度

n3=DateDiff(“m”,D1,D2) 返回-9 间隔为9月

n4=DateDiff(“ww”,D1,D2) 返回40 间隔为40周

n5=DateDiff(“n”,D1,D2) 返回398312 间隔为398312分钟

6、返回日期指定时间部分函数

DatePart(,[,W1][,W2])

返回日期中按照间隔类型的指定的时间间隔部分值。

如：

D=#2004-2-29 10:40:11#

n1=DatePart(“yyyy”,D) 返回2004

n2=DatePart(“d”,D) 返回29

n3=DatePart(“ww”,D) 返回10

7、返回包含指定年月日的日期函数

DateSerial(表达式1，表达式2，表达式3)

返回由表达式1为年、表达式2为月、表达式3为日而组成的日期值,但必须是有效的值，如果一个参数超过值，则会进到下一个较大值上。

D=

DateSerial(2008,2,29) 返回#2008-2-29#

D=

DateSerial(2008-1,8-2,0) 返回#2007-5-31#

四、类型转换函数

1、字符串转换字符代码函数：Asc()

返回字符串首字母的ASCII的值。

如：s=Asc(“abcdef”) 返回97

2、字符代码转换成字符函数：Chr()

返回字符代码相关的字符。

如：s=Chr(70) 返回f

s=Chr(13) 返回回车符

3、数字转换成字符串函数：Str()

将数值表达式值转换成字符串。

如：s=Str(99) 返回” 99”注意前有一个空格

s=Str(-6) 返回”-6”

4、字符串转换成数字函数：Val()

将数字字符转换成数值型数字。

如：s=Val(“16”) 返回16

s=Val(“3

45”) 返回345

s=Val(“76af89”) 返回76

5、字符串转换日期函数：DateValue()

将字符传转换成日期值。

如：D= DateValue(“February

29,2004”) 返回#2004-2-29#

6、Nz函数：Nz(表达式或字段属性值[,规定值])

当一个表达式或字段属性值为Null时，函数可返回0、零长度字符串(””)或其他指定值。

例如,可使用该函数将Null值转换为其他值。

当省略“规定值”时，如果“表达式或字段属性值”为数值型且值为Null，Nz返回0；反之为字符型且值为Null，Nz返回空字符串(“”).