Mid-functie, Mid-Instructie
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)
Teruggegeven waarde:
String (alleen voor Functie)
Parameters:
Tekst: Elke tekenreeks die moet worden gewijzigd.
Start: Numerieke expressie die binnen de tekenreeks de tekenpositie aangeeft waar het tekenreeksdeel begint dat u wilt vervangen of retourneren. Hoogste toegestane waarde is 65535.
Lengte: Numerieke expressie die het aantal tekens dat moet worden vervangen of teruggegeven aangeeft. Hoogst toegestane waarde is 65535.
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).
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