Mid Function, Mid Statement

Returnerar den angivna delen av ett stränguttryck (Mid-funktion), eller ersätter den delen av stränguttrycket med en annan sträng (Mid-sats).

Syntax:


Mid (Text As String, Start As Long [, Length As Long]) eller Mid (Text As String, Start As Long , Length As Long, Text As String)

Returvärde:

String (bara med funktion)

Parametrar:

Text: Ett stränguttryck som du vill ändra.

Start: Ett numeriskt uttryck som anger teckenpositionen i strängen där den del av strängen som du vill ersätta eller returnera börjar. Det högsta tillåtna värdet är 65535.

Length: Ett numeriskt uttryck som returnerar det antal tecken du vill ersätta eller returnera. Det högsta tillåtna värdet är 65535.

Om Length-parametern i Mid-funktionen utelämnas så returneras alla tecken i stränguttrycket från startpositionen till slutet av strängen.

Om Length-parametern i Mid-satsen är mindre än längden hos den text du vill ersätta så reduceras texten till den angivna längden.

Text: Den sträng som ska ersätta stränguttrycket (Mid-sats).

Felkoder:

5 Felaktigt proceduranrop

Exempel:


Sub ExampleUSDate
Dim sInput As String
Dim sUS_date As String
    sInput = InputBox("Mata in ett datum i det internationella formatet 'ÅÅÅÅ-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