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