Module
Contents
Index 🔎︎

# Mid Function, Mid Statement

Tagastab stringavaldise määratud osa (Mid funktsioon) või asendab stringavaldise osa mõne muu stringiga (Mid lause).

## Süntaks:

    Mid (Text As String, Start As Long [, Length As Long]) või Mid (Text As String, Start As Long , Length As Long, Text As String)

## Tagastusväärtus:

String (ainult funktsiooni järgi)

## Parameetrid:

Text: Suvaline stringavaldis, mida soovid muuta.

Start: arvavaldis, mis näitab stringi märgipositsiooni, millest algab stringi osa, mille soovid asendada või tagastada. Suurim lubatud väärtus on 655535.

Length: arvavaldis, mis tagastab asendatavate või tagastatavate märkide arvu. Suurim lubatud väärtus on 65535.

Kui Mid funktsiooni parameeter Length on vahele jäetud, siis tagastatakse stringavaldise kõik märgid alates alguspositsioonist kuni lõpuni.

Kui Mid funktsiooni parameeter Length on väiksem kui asendatava teksti pikkus, siis lühendatakse tekst määratud pikkuseni.

Text: stringavaldist asendav string (Mid lause).

## Error codes:

5 Vigane protseduuri väljakutse

## Näide:

    Sub ExampleUSDate

    Dim sInput As String

    Dim sUS_date As String

        sInput = InputBox("Palun sisesta kuupäev rahvusvahelisel kujul 'AAAA-KK-PP'")

        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