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).

Пример:

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