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: 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.

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

Please support us!