模块与VBA编程基础(4)

注意，对于Left函数和Right函数，如果N值为0，返回零长度字符串；如果大于等于字符串的字符数，则返回整个字符串。对于Mid函数，如果N1值大于字符申的字符数，返回零长度字符串；如果省略N2，返回字符串中左边起N1个字符开始的所有字符。 例如：strl =“opqrst”

str2 =“计算机等级考试”

str = Left（ strl，3） ’返回“opq”

str = Left（ str2，4） ’返回“计算机等” str = Right（ strl，2） ’返回“st” str = Right（ str2，2） ’返回“考试” str = Mid（ strl，4，2） ’返回“rs”

str = Mid（ str2，1，3） ’返回“计算机” str = Mid（str2， 4，） ’返回“等级考试” 4.生成空格字符函数：Space（<数值表达式>） 返回数值表达式的值指定的空格字符数。

例如：strl = Space(3） ’返回3个空格字符 5.大小写转换函数

Ucase（<字符串表达式>）：将字符串中小写字母转换成大写字母。 Lcase（<字符串表达式>）:将字符串中大写字母转换成小写字毋。 例如：strl = Ucase（“fHkrYt”） ’返回“FHKRYT” str2 = Lcase（“fHKrYt”） ’返回“fhkryt” 6.删除空格函数

Ltrim（<字符串表达式>）：删除字符串的开始空格。 Rtrim（<字符串表达式>）：删除字符串的尾部空格。 Trim（<字符串表达式>）：删除字符串的开始和尾部空格。 例如：str = “ab cde”

str1 = Ltrim（str） ’返回“ab cde” str2 = Rtrim（str） ’返回“ab cde” str3 = Trim（str） ’返回“ab cde” 三、日期/时间函数

日期/时间函数的功能是处理日期和时间。主要包括以下函数： 1.获取系统日期和时间函数 Date（）：返回当前系统日期。 Time（）：返回当前系统时间。 Now（）：返回当前系统日期和时间。

例如：D = Date（） ’返回系统气气，如2008-08-08 T = Time（） ’返回系统时间，如9：45：00

DT = Now（） ’返回系统日期和时间，如2008-08-08 9：45：00 2.截取日期分量函数

Year（<表达式>）： 返回日期表达式年份的整数。 Month（<表达式>）：返回日期表达式月份的整数。 Day（<表达式>）：返回日期表达式日期的整数。

Weekday （<表达式>[.W]）：返回1-7的整数，表示星期几。 Weekday函数中，返回的星期值见表8.5所示。

例如：D = #2008-8-8#

YY = Year（ D） ’返回2008 MM = Month（D） ’返回8 DD = Day（ D） ’返回8

WD = Weekday（D） ’返回6，因2008-8-8为星期五 3.截取时间分量函数

Hour（<表达式>）：返回时间表达式的小时数（0-23）。 Minute（<表达式>）：返回时间表达式的分钟数（0-58） Second（<表达式>）：返回时间表达式的秒数（0-59）。 例如：T = #10：40：11# HH = Hours（T） ’返回10 MM = Minute（T） ’返回40 SS = Second（T） ’返回11 4.日期/时间增加或减少一个时间间隔

DateAdd（<间隔类型>，<间隔值>，<表达式>）：对表达式表示的日期按照间隔类型上或减去指定的时间间隔值。

注意，间隔类型参数表示时间间隔，为一个字符串，其设定值见表8.6所示；间隔值参数表示时间间隔的数目，数值可以为正数（得到未来的日期）或负数（得到过去的日期）。

例如：D = #2004-2-29 10：40：11#

D1 = DateAdd（＂YYYY＂，3，D） ’返回#2007-2-28 l0：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） ’返回#20Q4-3-14 10：40：11 #, 日期加2周 D6 = DateAdd（＂n＂，-150，D） ’返回#2004-2-29 8：10：11#，日期减150分钟 5.计算两个日期的间隔值函数

DateDiff（<间隔类型>，<日期1>，<日期2>[，W1][,W2]）:返回日期1和日期2之间按照间隔类型所指定的时间间隔数目。

注意，间隔类型参数表示时间间隔，为一个字符串，其设定值见表8.6所示。参数W1为可选项，是一个指定一星期的第一天是星期几的常数，如省略，默认为vbSunday，即周日返回1、周一返回2，以此类推，其参数设定值见表8.5所示。参数W2也为可选项，是一个指定一年的第一周的常数，如省略，默认值为vhFirstJan 1 ，即包含1月1日的星期一为第一周，其参数设定值见表8.7所示。

例如：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＂，D2，D1） ’返回-9，间隔9月

n4 = DateDiff（＂ww＂，D1，D2） ’返回40，间隔40周

n5 = DateDiff（＂n＂，D1，D2）， ’返回398312，间隔398312分钟 6.返回日期指定时间部分函数

DatePart（<间隔类型>，<日期1>，<日期2>[，W1][,W2]）:返回日期中按照间隔类型 所指定的时间部分值。

注意，间隔类型参数表示时间间隔，为一个字符串。其设定值见表8.6所示。参数W1为可选项，是一个指定一星期的第一天是星期几的常数，如省略，默认为vbSunday,即周日返回1、周一返回2，以此类推，其参数设定值见表8.5所示。参数W2也为可选项，是一个指定一年的第一周的常数，如省略，默认值为，vbFirstJan1，即包含1月1日的星期为第一周，其参数设定值见表8.7所示。 例如：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值为日而组成的日期值。

注意，每个参数的取值范围应该是可接受的；即日的取值范围应在1-31之间，而月的取值范围应在1-12之间。此外，当任何一个参数的取值超出可接受的范围时，它会适时进位到下一个较大的时间单位。例如，如果指定了35天，则这个天数被解释成一个月加上多出来的日数，多出来的日数将由其年份与月份来决定。

例如：D = DateSerial（2008，2，29），返回#2008-2-29# D = DateSerial（ 2008-l，8 -2，0），返回##2008-5-31#

四、类型转换函数

类型转换函数的功能是将数据类型转换成指定数据类型。例如，窗体文本框中显示的数值数据为字符串型，要想作为数值处理就应进行数据类型转换。表8.8中已经列出了“C-”开头的一些类型转换函数。下面再介绍另外一些类型转换函数。

1.字符串转换字符代码函数：Asc（<字符申表达式>）

返回 …… 此处隐藏：2924字，全部文档内容请下载后查看。喜欢就下载吧 ……