目次
索引 🔎︎

# 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