Mid Function, Mid Statement

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

Syntax:


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

Return value:

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

Parameters:

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

Start: Numeric expression that indicates the character position within the string where the string portion that you want to replace or to return begins. The minimum allowed value is 1. The maximum allowed value is 2,147,483,648.

Length: Numeric expression that returns the number of characters that you want to replace or return. The maximum allowed value is 2,147,483,648.

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

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

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

Error codes:

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

Example:


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

Please support us!