当前位置: 首页 > 编程语言 > vb6 > 正文

vb变量、常数和数据类型及过程概述(六)

时间:2007-05-05

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 函数”。