Functie Mid, Instructie Mid

Geeft het gespecificeerde deel van een tekenreeks (Mid-functie), of vervangt het deel van een tekenreeks door een andere tekenreeks (Mid-instructie).

Syntaxis:


Mid (Tekst As String, Start As Integer [, Lengte As Integer]) of Mid (Tekst As String, Start As Integer, Lengte As Integer, Tekst As String)

Geretourneerde waarde:

String (alleen voor Functie)

Parameters:

Tekst: Elke tekenreeks die moet worden gewijzigd.

Start: Numerieke expressie die de positie van het teken aangeeft in de tekenreeks waar het gedeelte begint dat u wilt terugkrijgen of wilt vervangen. De minimale waarde is 1. De maximale waarde is 2.147.483.648.

Length: Numerieke expressie die het aantal tekens aangeeft dat u terug wilt krijgen of wilt vervangen. De maximale waarde is 2.147.483.648.

Als de Lengte-parameter in de Mid-functie wordt weggelaten, worden alle tekens in de tekenreeks vanaf de beginpositie tot het einde van de tekenreeks teruggegeven.

Als de Lengte-parameter in de Mid-instructie kleiner is dan de lengte van de tekst die moet worden vervangen, zal de tekst worden ingekort tot de gespecificeerde lengte.

Tekst: De tekenreeks die de bestaande tekenreeks moet vervangen(Mid-instructie).

Foutcodes:

5 Ongeldige aanroep van procedure

Voorbeeld:


Sub ExampleUSDate
Dim sInput As String
Dim sUS_date As String
    sInvoer = InputBox("Voer alstublieft een datum in met de internationale opmaak 'YYYY-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

Tekenreeksfuncties