Mid funktsioon, Mid lause

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).

Veakoodid:

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

Palun toeta meid!