Spis treści

# Funkcja Mid, Instrukcja Mid

Zwraca określony fragment ciągu (funkcja Mid) lub zamienia fragment ciągu innym ciągiem (instrukcja Mid).

### Składnia:

    Mid (tekst As String, start As Long [, długość As Long]) lub Mid (tekst As String, start As Long, długość As Long, tekst As String)

### Zwracana wartość:

Ciąg (tylko w przypadku funkcji)

### Parametry:

Tekst: Dowolne wyrażenie w postaci ciągu, które ma zostać zmodyfikowane.

Start: Wyrażenie numeryczne określające pozycję znaku, w którym część łańcucha zaczyna zastępować lub zwracać. Minimalna dozwolona wartość wynosi 1. Maksymalna dozwolona wartość wynosi 2 147 483 648.

Length: Wyrażenie numeryczne, które zwraca liczbę znaków, które chcesz zastąpić lub zwrócić. Maksymalna dozwolona wartość wynosi 2 147 483 648.

Jeśli parametr "długość" w funkcji Mid zostanie pominięty, zwracane są wszystkie znaki od punktu początkowego aż do końca ciągu.

Jeśli parametr "długość" w instrukcji Mid jest mniejszy niż długość tekstu, który ma zostać zamieniony, tekst jest skracany do określonej długości.

Tekst: Ciąg zastępujący wyrażenie w postaci ciągu (instrukcja Mid).

### Kody błędów:

5 Nieprawidłowe wywołanie procedury

### Przykład:

    Sub ExampleUSDate
    Dim sInput As String
    Dim sUS_date As String
        sInput = InputBox("Wprowadź datę w formacie międzynarodowym 'RRRR-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

Tematy pokrewne

Funkcje łańcuchowe