Module
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