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.

Start: espressione numerica che indica la posizione all'interno della stringa del carattere, da cui inizia la porzione da sostituire o restituire. Il valore minimo ammesso è 1, il massimo è 2.147.483.648.

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

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

Sosteneteci!