Visual Basic变量、常数和数据类型及过程概述(图)

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 函数可以完成这样的任务：
　　　　Do
　　　　　　　　anyNumber = 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“控制面板”中的“地区设置”对话框自动使用相应的符号。
　　　　详细信息 请参阅《Visual Basic 6.0语言参考手册》中的 "Format 函数" 以及关于转换函数的主题。关于编写分布在国外市场的应用程序的更详细信息，请参阅第十六章“国际化”。

　　　　Variant 变量中存储的字符串
　　　　一般说来，在 Variant 变量中存储和使用字符串不会出什么问题。但是如前所述，有时在使用两个 Variant 值时，" + " 运算符的结果可能很含糊。如果两个 Variant 变量都包含数，则 " + " 运算符执行加法运算。如果两个Variant 变量都包含字符串，则 " + " 运算符执行字符串连接。但是，如果一个值代表数，而另一个值代表字符串，则情况就很复杂了。Visual Basic 首先试图把字符串变成数。如果转换成功，那么 " + " 运算符把两者加在一起；如果不成功，则产生一个“类型不匹配”错误。
　　　　为了确保执行的动作为字符串连接，不管变量中的表示如何，都用 & 运算符。例如，以下代码：
　　　　Sub Form_Click ()
　　　　　　Dim X ， Y
　　　　　　X = "6"
　　　　　　Y = "7"
　　　　　　Print X + Y,X & Y
　　　　　　X = 6
　　　　　　Print X + Y,X & Y
　　　　End Sub
　　　　在窗体上产生如下结果：
　　　　67 　　　　67
　　　　13 　　　　67　　　　
　　　　注意 Visual Basic 在内部用 Unicode 存储字符串。关于 Unicode 的更详细的信息，请参阅第十六章“国际化"。

　　　　Variant 变量中存储的 Date/Time 值
　　　　Variant 变量还可以包含 Date/Time 值。有几个函数返回 Date/Time 值。
　　　　例如，DateSerial 返回该年所剩的天数。
　　　　Private Sub Form_Click ()
　　　　　　Dim rightnow ， daysleft ， hoursleft ， minutesleft
　　　　　　rightnow = 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 ， daysleft
　　　　If IsDate (Text1.Text) Then
　　　　　　SomeDate = CDate (Text1.Text)
　　　　　　daysleft = DateSerial(Year(SomeDate) + _
　　　　　　1, 1, 1) - SomeDate
　　　　　　Text2.Text = daysleft & " days left in the year."
　　　　Else
　　　　　　MsgBox Text1.Text & " is not a valid date."
　　　　End If
　　　　详细信息 关于各种 Date 和 Time 函数的信息，请参阅《Visual Basic 6.0语言参考手册》中的“Date 函数”。