Module
Contents
Index 🔎︎

# Mid Function, Mid Statement

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 położenie w tym ciągu pierwszego znaku fragmentu, który należy zamienić lub zwrócić. Maksymalna dozwolona wartość wynosi 65535.

Długość: Wyrażenie numeryczne zwracające liczbę znaków, które należy zamienić lub zwrócić. Maksymalna dozwolona wartość wynosi 65535.

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