Funzione Mid, Istruzione Mid

Restituisce la parte specificata di una stringa (funzione Mid) o la sostituisce con un'altra stringa (istruzione Mid).

Sintassi:

Mid (Testo As String, Inizio As Long [, Lunghezza As Long]) or Mid (Testo As String, Inizio As Long , Lunghezza As Long, Testo As String)

Valore restituito:

String (solo con la funzione)

Parametri:

Testo: stringa da modificare.

Inizio: espressione numerica che indica la posizione all'interno della stringa del carattere iniziale della porzione di stringa da sostituire o restituire. Il valore massimo consentito è 65535.

Lunghezza: espressione numerica che restituisce il numero di caratteri da sostituire o restituire. Il valore massimo consentito è 65535.

Se il parametro Lunghezza viene omesso nella funzione Mid, vengono restituiti tutti i caratteri dell'espressione, dall'inizio alla fine della stringa.

Se il parametro Lunghezza dell'istruzione Mid è inferiore alla lunghezza del testo da sostituire, il testo viene ridotto alla lunghezza specificata.

Testo: stringa da usare per sostituire la stringa specificata (istruzione Mid).

Codici di errore:

5 Richiamo di procedura non valido

Esempio:

Sub ExampleUSDate

Dim sInput As String

Dim sUS_date As String

    sInput = InputBox("Inserite una data in formato internazionale 'AAAA-MM-GG'")

    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