Mid Function, Mid Statement

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

语法：

Mid (Text As String, Start As Integer [, Length As Integer]) 或 Mid (Text As String, Start As Integer , Length As Integer, 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