在InPlant SCADA项目工程应用中，有时候用户会希望实现更复杂的功能，那就需要通过VBS脚本进行功能扩展。本期小编给大家分享一些数据类型转换函数，为您实现二次开发提供参考。

数据类型转换函数

01

十六进制Hex 函数

显示表示十六进制数字值的字符串。

语法：

Hex(number)

number 参数是任意有效的表达式。

案例：

Dim MyHex1,MyHex2,MyHex3,

MyHex1 = Hex(10)   ' 显示 A

MyHex2 = Hex(15)   ' 显示F

MyHex3 = Hex(255)   ' 显示 FF

02

Asc 函数

显示与字符串的第一个字母对应的 ANSI 字符代码。

语法：

Asc(string)

string 参数是任意有效的字符串表达式。如果 string 参数未包含字符，则将发生运行时错误。

案例：

Dim MyNumber1,MyNumber2,MyNumber3

MyNumber1 = Asc("A")      '显示 65。

MyNumber2 = Asc("B")      '显示 66。

MyNumber3 = Asc("ALL")  '显示 65。

03

Chr函数

显示与指定的 ANSI 字符代码相对应的字符。

语法：

Chr(charcode)

charcode 参数是可以标识字符的数字。

案例：

Dim MyChar1,MyChar2,MyChar3,

MyChar1 = Chr(65)    '显示 A

MyChar2 = Chr(66)    '显示 B

MyChar3 = Chr(97)    '显示 a

04

CStr 函数

将一个表达式或变量转换为字符串（String）类型。

案例：

Dim Num1, Str1

Num1 = 123.45         ' Num1为实数。

Str1 = CStr(Num1)    ' 显示 "123.45"。

05

CInt 函数

将一个表达式或变量转换为整数（Integer）类型。

案例：

Dim Num1, Int1

Num1 = 123.45         ' Num1为实数。

Int1 = CInt(Num1)    ' 显示 "123"。

06

CDbl 函数

将一个表达式或变量转换为浮点数（Double）类型。

案例：

Dim Num1, real1

Num1 = "123.456"         ' Num1为实数。

real1 = CDbl(Num1)    ' 显示 "123.456"。