IBM Lotus Symphony
|
Возвращает заданное число символов с левого конца строки.
Left (Текст 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