IBM Lotus Symphony
|
Возвращает "n" крайних правых символов строкового выражения.
См. также Функция Left.
Right (Текст As String, n As Long)
String
Текст: произвольное строковое выражение, в котором необходимо вычленить крайние справа символы.
n: числовое выражение, задающее число возвращаемых символов. Если n = 0, то возвращается строка нулевой длины. Максимальное допустимое значение - 65535.
Коды ошибок
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