Funkcija Left
Vrne levi konec niza v dolžini, ki jo navedete.
Skladnja:
Left (Besedilo As String, n As Long)
Vrnjena vrednost:
String
Parametri:
Besedilo: niz, za katerega želite levi konec v navedeni dolžini.
n: numeričen izraz, ki pove, koliko znakov želite. Če n = 0, se vrne niz dolžine nič. Največja dovoljena vrednost je 65535.
Naslednji primer pretvori datum iz oblike LLLL.MM.DD v obliko MM/DD/LLLL.
Primer:
Sub ExampleUSDate
Dim sInput As String
Dim sUS_date As String
sInput = InputBox("Vnesite, prosimo, datum v mednarodni obliki 'LLLL-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