VB编程基础教程8–高级变量主题

VB编程基础教程8–高级变量主题数值在变量中的内部表示variant 变量维护它们所存储的数值的内部表示。

这个表示将决定visual basic 在执行比较操作和其它操作时如何处理这些值。

将值赋予variant 变量时，visual basic 会用最紧凑的表示正确记录这个值。

以后的操作可能使visual basic 改变这个用于特定变量的表示。

（variant 变量不是无类型变量，而是能够随意改变类型的变量。

）这些内部表示与本章前面在“数据类型”中讨论的数据类型相一致。

注意variant 总保持16 位，无论其中存储了什么数据。

对象、字符串和数组，在物理上并非存于variant 之中；在这些情况下，用四个字节的variant 来保持对象引用、或者字符串或数组的指针。

而真正的数据存在其它地方。

很多时候，不必了解visual basic 为特殊变量使用哪一种变量类型；visual basic 会自动转换类型。

若想了解visual basic 正在使用哪种变量类型，可使用vartype 函数。

例如，如果在variant 变量中存储二进制值，visual basic 就会用double 内部表示。

如果知道应用程序并不需要double 值提供的高精度（以及由此而来的低速度），那么将此值转换成single 甚至转换成currency 就可以加快计算速度：if vartype (x) = 5 then x = csng (x) …转换成单精度。

对array 变量，vartype 的值等于数组元素与数据类型返回值之和。

例如，这个数组包含double 值：private sub form_click ()dim dblsample (2) as doublemsgbox vartype (dblsample)end subvisual basic 的今后版本可能会增加新的variant 表示，所以，任何根据vartype 函数的返回值做出判断的代码都应能适当地处理非当前定义的返回值。

详细信息关于vartype 函数的信息，请参阅语言参考中的“vartype 函数”。

关于数组的更详细信息，请参阅本章后面的“数组”。

关于转换数据类型的详细信息，请参阅本章前面的“数据类型”。

variant 变量中存储的numeric 值在variant 变量中存储整个数时，visual basic 使用最紧凑的表示。

例如，若是存储不带小数点的微小的数值，variant 对该值使用integer 表示。

如果此后赋予一个较大的数，则visual basic 将使用long 值，如果这个数非常大或者有小数部分，则visual basic 将使用double 值。

有时想对一个数使用特定表示。

例如，为了在以后的计算中避免舍入误差，可能希望variant 变量将数值作为currency 存储起来。

visual basic 提供了几种转换函数，可以用它们将值转换成指定的类型（参阅本章前面的“转换数据类型”）。

例如，用ccur 函数可将值转换成currency 类型：payperweek = ccur (hours * hourlypay)如果variant 变量不含数或者不含可以解释为数的内容，则对variant 变量执行数学运算或函数计算就会出错。

例如，不能对‟u2… 这个值进行任何算术运算，尽管它包含一个数值字符‟2…，但整个值并非合法的数。

同样不能对值1040ez 进行任何计算，但是，可以对+10 或-1.7e6 进行计算，因为它们是有效的数。

因此经常需要判定variant 变量是否包含可以当作数使用的值。

isnumeric 函数可以完成这样的任务：doanynumber = inputbox (“enter a number”)loop until isnumeric (anynumber)msgbox “the square root is: ” & sqr (anynumber)当visual basic 将一个非数值的表示（如包含一个数的字符串）转换成数值时，它会使用地区设置（在windows 的“控制面板”中规定）来解释千位分隔符、小数点符号和货币符号。

于是，如果windows 的“控制面板”中的国家/地区设置值被设置成美国、加拿大或澳大利亚，则这两个语句将返回true：isnumeric (“$100″)isnumeric (“1,560.50″)而下面两个语句则返回false：isnumeric (“dm100″)isnumeric (“1.560,50″)但是，如果在windows 的“控制面板”中的国家/地区设置值被设置成德国，则情况正好相反：前两个语句返回false，而后两个语句返回true。

如果把包含数的variant 赋给字符串变量或属性，visual basic 自动把数的内部表示转换成字符串。

如果想显式地将数转换成字符串，可以用cstr 函数。

还可以用format 函数将数转换成字符串，字符串包含某种格式，如货币符，千位分隔符和小数点符号。

format 函数按照windows“控制面板”中的“地区设置”对话框自动使用相应的符号。

详细信息请参阅的语言参考中的“format 函数” 以及关于转换函数的主题。

关于编写分布在国外市场的应用程序的更详细信息，请参阅“国际化”。

variant 变量中存储的字符串一般说来，在variant 变量中存储和使用字符串不会出什么问题。

但是如前所述，有时在使用两个variant 值时，” + ” 运算符的结果可能很含糊。

如果两个variant 变量都包含数，则” + ” 运算符执行加法运算。

如果两个variant 变量都包含字符串，则” + ” 运算符执行字符串连接。

但是，如果一个值代表数，而另一个值代表字符串，则情况就很复杂了。

visual basic 首先试图把字符串变成数。

如果转换成功，那么” + ”运算符把两者加在一起；如果不成功，则产生一个“类型不匹配”错误。

为了确保执行的动作为字符串连接，不管变量中的表示如何，都用& 运算符。

例如，以下代码：sub form_click ()dim x ，yx = “6″y = “7″print x + y,x & yx = 6print x + y,x & yend sub在窗体上产生如下结果：67 6713 67注意visual basic 在内部用unicode 存储字符串。

关于unicode 的更详细的信息，请参阅“国际化”。

variant 变量中存储的date/time 值variant 变量还可以包含date/time 值。

有几个函数返回date/time 值。

例如，dateserial 返回该年所剩的天数。

private sub form_click ()dim rightnow ，daysleft ，hoursleft ，minutesleftrightnow = now ‟now 返回当前的date 和time。

daysleft = int(dateserial(year(rightnow) _+ 1, 1, 1) – rightnow)hoursleft = 24 – hour (rightnow)minutesleft = 60 – minute (rightnow)print daysleft & ” days left in the year.”print hoursleft & ” hours left in the day.”print minutesleft & ” minutes left in the hour.”end sub还可以对date/time 值进行运算。

通过加减一个整数来增加或减少天数；通过加减一个分数来增加或减少时间。

所以，加20 就是加20 天，而减掉1/24 就是减去一小时。

存储在variant 变量中的date 值的有效范围从公元0100 年 1 月 1 日到公元9999 年12 月31 日。

计算date 时不考虑gregorian 历法采用之前的日期。

所以如果计算gregorian 历法被采用那年（在英国及其殖民地为1752 年；其它国家/地区则或早一些或晚一些）之前的日期，结果可能会不正确。

在代码中可以采用date/time 文字，只要用一对” # ” 号将它们括起来，如同对字符串用一对双引号( “” ) 括起来一样。

例如，可以将包含date/time 值的variant 和一串表示date 的文字作比较：if somedate > #3/6/93# then下面的例子将包含date/time 值的variant 变量和一串表示date 和time 的文字相比较：if somedate > #3/6/93 1:20pm# then如果date/time 值不包括time，则visual basic 自动将该值的time部分设定为午夜（一天的开始）。

如果date/time 值不包括date，则visual basic 自动将该值的date 部分设定为公元1899 年12 月30 日。

visual basic 接受许多种文字的date 和time 格式。

下面的date/time 值全部有效：somedate = #3-6-93 13:20#somedate = #march 27 ，1993 1:20am#somedate = #apr-2-93#somedate = #4 april 1993#详细信息有关用国际格式处理date 的信息，请参阅“国际化”。

用isnumeric 函数可测试一个variant 变量是否包含一个值，这个值可以看作有效的数值，同样，用isdate 函数可测试一个variant 变量是否包含一个值，这个值可以看作有效的date/time 值。

然后可用cdate 函数将该值转换成date/time值。

例如，以下代码用isdate 测试文本框的text 属性。

如果属性包含被看作有效date 的文本，则visual basic 将此文本转换成date 并计算到年底还有几天。

dim somedate ，daysleftif isdate (text1.text) thensomedate = cdate (text1.text)daysleft = dateserial(year(somedate) + _1, 1, 1) – somedatetext2.text = daysleft & ” days left in the year.”elsemsgbox text1.text & ” is not a valid date.”end if详细信息关于各种date 和time 函数的信息，请参阅的语言参考中的“date function”。