代理中常用的几个转换方法（如：Cstr）

Sub Initialize

On Error Goto a

a = "12345"

%REM

b = Cstr(a) '将a转换为文本

b = Val(a) '将a转换为数字，参与相关计算时会用到

b = Format(a,"yyyy-mm-dd") '将a转换为日期格式为yyyy-mm-dd

b = Cint(a) '转换为整型，如果a为3.4则Cint(a)返回3；如果a为3.5以上包括3.5则Cint(a)返回4

b = Datevalue(a) '转换为日期格式存到文档中

b = Evaluate("@name([cn];@username)") '取公式

b = Left(a,2) '返回值为12

b = Right(a,2) '返回值为45

Dim arr_t(2) As String

arr_t(0) = "aaa"

arr_t(1) = "bbb"

arr_t(2) = "ccc"

aa = Ubound(arr_t) 'aa的返回值为2，ubound是取数组个数用的，从0开始

bb = FullTrim(arr_t) 'FullTrim是去除数组中的空值，比如 arr_t(1) = " "那么打印出来的值就只用aaa,ccc;不会出现aaa,"",ccc的情况

str_t = Join(arr_t,",") '把数组元素用某个字符连接起来

Msgbox str_t '值为aaa,bbb,ccc

%END REM

Exit Sub

a:

Msgbox "错误在代理sz_test中的第" & Erl & "行-------：" & Error

End Sub