Довідка LibreOffice 24.8
Повертає вказану частину рядка (функція Mid) чи замінює цю частину рядка іншим рядком (інструкція Mid).
Mid (Текст As String, Початок As Long [, Довжина As Long]) або Mid (Текст As String, Початок As Long, Довжина As Long, Текст As String)
String (тільки для функції)
Текст: довільний рядок, котрий потрібно змінити.
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).
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