IBM Lotus Symphony
|
Vrne podano število znakov na levi za nizovni izraz.
Left (Text As String, n As Long)
Niz
Text: Katerikoli nizovni izraz, za katerega želite vrniti leve znake.
n: Številski izraz, ki podaja število znakov, ki jih želite vrniti. Če n = 0, se vrne niz z dolžino nič. Največja dovoljena vrednost je 65535.
Naslednji primer pretvori datum iz oblike LLLL.MM.DD v obliko MM/DD/LLLL
Sub ExampleUSDate
Dim sInput As String
Dim sUS_date As String
sInput = InputBox("Please input a date in the international format '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