Contents
Index 🔎︎

# Mid Function, Mid Statement

Возвращает указанную часть строки (функция Mid) или заменяет эту часть строки другой строкой (инструкция Mid).

## Синтаксис

    Mid (Текст As String, Начало As Long [, Длина As Long]) или Mid (Текст As String, Начало As Long , Длина As Long, Текст As String)

## Возвращаемое значение:

String (только для функции)

## Параметры:

Текст. Любая строка, которую нужно изменить.

Начало. Числовое выражение, которое указывает позицию символа в строке, где начинается часть строки, подлежащая возврату или замене. Максимально допустимое значение - 65535.

Длина. Числовое выражение, возвращающее количество символов, которые должны быть заменены или возвращены. Максимально допустимое значение - 65535.

Если параметр Длина в функции Mid опущен, возвращаются все символы в строковом выражении от позиции Начало до конца этой строки.

Если параметр Длина в инструкции Mid меньше, чем длина заменяемого текста, он будет сокращен до указанной длины.

Текст. Строка, которая должна заменить строковое выражение (инструкция Mid).

### Error codes:

5 Неправильный вызов процедуры

## Пример:

    Sub ExampleUSDate
    Dim sInput As String
    Dim sUS_date As String
        sInput = InputBox("Пожалуйста, введите дату в международном формате ГГГГ-ММ-ДД")
        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