IBM Lotus Symphony


Mid 函数、Mid 语句 [运行时]

返回字符串表达式的指定部分(Mid 函数),或将字符串表达式的指定部分替换成另一个字符串(Mid 语句)。

语法:

Mid (Text As String, Start As Long [, Length As Long]) or Mid (Text As String, Start As Long , Length As Long, Text As String)

返回值:

字符串(仅适用于函数)

参数:

Text:要修改的任何字符串表达式。

Start:数字表达式,表示字符串中将要替换或返回的字符串部分的起始字符位置。最大允许值为 65535。

Length:返回要替换或返回的字符数目的数字表达式。最大允许值为 65535。

如果不指定 Mid 函数中的 Length 参数,将返回字符串表达式中从开始位置到字符串结尾的所有字符。

如果 Mid 语句中的 Length 参数小于要替换的文本长度,文本将缩短到指定的长度。

Text:用于替换字符串表达式的字符串(Mid 语句)。

错误代码

5 无效的过程调用

示例:

Sub ExampleUSDate

Dim sInput As String

Dim sUS_date As String

sInput = InputBox("Please input a date in the international format 'YYYY-MM-DD'")

sUS_date = Mid(sInput, 6, 2)

sUS_date = sUS_date & "/"

sUS_date = sUS_date & Right(sInput, 2)

sUS_date = sUS_date & "/"

sUS_date = sUS_date & Left(sInput, 4)

MsgBox sUS_date

End Sub


产品反馈 | 其他文档 | 商标