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 ステートメント)。

Error codes:

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