Mid funkcija, Mid sakinys

Grąžina nurodytą eilutės reiškinio dalį (Mid funkcija) arba eilutės reiškinio dalį pakeičia kita eilute (Mid sakinys).

Syntax:


Mid (tekstas eilute, ilgasis [, ilgojo ilgis]) or Mid (tekstas eilute, ilgasis , ilgojo ilgis, tekstas eilute)

Return value:

String (tik funkcijoms)

Parameters:

Tekstas: Bet koks eilutės reiškinys, kurį norite modifikuoti.

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 maximum allowed value is 65535.

Length: Numeric expression that returns the number of characters that you want to replace or return. The maximum allowed value is 65535.

Jei parametro Mid funkcijos parametras praleistas, visi eilutės reiškinio simboliai nuo eilutės pradžios iki pabaigos grąžinami.

Jei parametro ilgis Mid sakinyje yra mažesnis nei norimo pakeisti teksto ilgis, tekstas sumažinamas iki nurodyto ilgio.

Tekstas: Eilutė, pakeičianti eilutės reiškinį (Mid sakinys).

Klaidos kodai:

5 Neteisingas procedūros iškvietimas

Example:


Sub ExampleUSDate
Dim sInput As String
Dim sUS_date As String
    sInput = InputBox("Įveskite datą tarptautiniu formatu 'YYYY-MM-DD'")
    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