Left funktsioon

Tagastab stringavaldise mÀÀratud arvu kÔige vasakpoolsemaid mÀrke.

SĂŒntaks:


Left (Text As String, n As Long)

TagastusvÀÀrtus:

String

Parameetrid:

Text: stringavaldis, millest kÔige vsakpoolsemaid mÀrke tagastada soovid.

n: arvavaldis, mis mÀÀrab tagastatavate mÀrkide arvu. Kui n = 0, tagastatakse nullpikkusega string. Suurim lubatud vÀÀrtus on 65535.

JÀrgnev nÀide teisendab kuupÀeva kujult AAAA.KK.PP kujule KK/PP/AAAA.

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!