Ukaz Mid, funkcija Mid
Vrne zahtevani del izraza vrste niza-String (funkcija Mid), ali pa zamenja del niza z drugim nizom (ukaz Mid).
Skladnja:
Mid (Besedilo As String, Zacetek As Long [, Dolzina As Long]) or Mid (Besedilo As String, Zacetek As Long , Dolzina As Long, Besedilo2 As String)
Vrnjena vrednost:
String (samo za funkcijo)
Parametri:
Besedilo: poljuben niz, ki ga želite spremeniti.
Začetek: numeričen izraz, pri katerem znaku se začenja niz, katerega želite vrniti ali zamenjati. Največja dovoljena vrednost je 65535.
Dolzina: numeričen izraz, ki pove, koliko znakov želite zamenjati ali vrniti. Največja dovoljena vrednost je 65535.
Če parameter Dolzina v funkciji Mid izpustite, bo funkcija vrnila vse znake od točke Zacetek do konca niza.
Če je parameter Dolzina v ukazu Mid krajši od dolžine besedila, ki ga želite zamenjati, se besedilo skrajša na navedeno dolžino.
Besedilo: Niz, ki naj zamenja vsebino (ukaz Mid).
Primer:
Sub ExampleUSDate
Dim sInput As String
Dim sUS_date As String
sInput = InputBox("Vnesite, prosimo, datum v mednarodni obliki 'LLLL-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