LibreOffice 7.5 abi
Tagastab stringavaldise määratud osa (Mid funktsioon) või asendab stringavaldise osa mõne muu stringiga (Mid lause).
Mid (Text As String, Start As Long [, Length As Long]) või Mid (Text As String, Start As Long , Length As Long, Text As String)
String (ainult funktsiooni järgi)
Text: Suvaline stringavaldis, mida soovid muuta.
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.
Kui Mid funktsiooni parameeter Length on vahele jäetud, siis tagastatakse stringavaldise kõik märgid alates alguspositsioonist kuni lõpuni.
Kui Mid funktsiooni parameeter Length on väiksem kui asendatava teksti pikkus, siis lühendatakse tekst määratud pikkuseni.
Text: stringavaldist asendav string (Mid lause).
Sub ExampleUSDate
Dim sInput As String
Dim sUS_date As String
sInput = InputBox("Palun sisesta kuupäev rahvusvahelisel kujul 'AAAA-KK-PP'")
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