Modulo
Contenuto
Indice 🔎︎

# 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