IBM Lotus Symphony
|
Vracia zadanú časť reťazcového výrazu vo (funkcii Mid) alebo nahradzuje časť reťazcového výrazu iným reťazcom v (príkaze Mid).
Mid (Text As String, Začiatok As Long [, Dĺžka As Long]) alebo Mid (Text As String, Začiatok As Long , Dĺžka As Long, Text As String)
Typ String (iba podľa funkcie)
Text: ľubovoľný reťazcový výraz, ktorý chcete modifikovať.
Začiatok: Numerický výraz, ktorý označuje polohu znaku v rámci reťazca, kde začína časť reťazca, ktorá sa má nahradiť alebo vrátiť. Maximálna povolená hodnota je 65535.
DĹžka: Numerický výraz, ktorý vráti počet znakov, ktoré sa majú nahradiť alebo vrátiť. Maximálna povolená hodnota je 65535.
Ak sa vynechá parameter dĺžky vo funkcii Mid, vrátia sa všetky znaky reťazcového výrazu od začiatočnej do koncovej pozície v reťazci.
Ak je parameter dĺžky v príkaze Mid menší ako dĺžka textu, ktorý chcete nahradiť, text sa skráti na zadanú dĺžku.
Text: reťazec, ktorý nahradí reťazcový výraz (príkazu Mid).
Sub Príklad_USDate
Dim sInput ako typ String
Dim sUS ako typ String
sInput = InputBox("Prosím zadajte dátum v medzinárodnom formáte '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