IBM Lotus Symphony
|
Возвращает указанную часть строкового выражения (функция Mid), либо заменяет часть строкового выражения на другую строку (оператор Mid).
Mid (Текст As String, Начало As Long [, Длина As Long]) или Mid (Текст As String, Начало As Long , Длина As Long, Текст As String)
String (только в случае функции)
Начало: целочисленное выражение, задающее начальную позицию заменяемой или возвращаемой части строки.
Start: числовое выражение, задающее длину заменяемой или возвращаемой части строки. Максимальное допустимое значение - 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