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：整型表示式，傳回要代替或傳回的字元數目。

如果不指定 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