IBM Lotus Symphony
|
Vrne podani del nizovnega izraza (funkcija Mid) ali zamenja del nizovnega izraza z drugim nizom (Stavek Mid).
Mid (Text As String, Start As Long [, Length As Long]) or Mid (Text As String, Start As Long , Length As Long, Text As String)
Niz (samo za funkcijo)
Text: Katerikoli nizovni izraz, ki ga želite spremeniti.
Start: Številski izraz, ki nakazuje položaj znaka znotraj niza, kjer se začne del niza, ki ga želite zamenjati ali vrniti. Največja dovoljena vrednost je 65535.
Length: Številski izraz, ki vrne število znakov, ki jih želite zamenjati ali vrniti. Največja dovoljena vrednost je 65535.
Če je parameter Length za funkcijo Mid izpuščen, so vrnjeni vsi znaki v nizovnem izrazu od začetnega položaja do konca niza.
Če je parameter Length v stavku Mid krajši kot besedilo, ki ga želite zamenjati, se besedilo skrči na podano dolžino.
Text: Niz, ki naj zamenja nizovni izraz (stavek Mid).
Sub ExampleUSDate
Dim sInput As String
Dim sUS_date As String
sInput = InputBox("Please input a date in the international format '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