IBM Lotus Symphony
|
Returnerer det antall tegn lengst til venstre som du angir i et strenguttrykk.
Left (Tekst som Streng, n som Lang)
Streng
Tekst: Et strenguttrykk som du vil returnere tegnene lengst til venstre fra.
n: Numerisk uttrykk som angir antall tegn du vil returnere. Hvis n = 0, blir en streng med nullengde returnert. Maksimal tillatt verdi er 65535.
Det følgende eksempelet konverterer en dato i ÅÅÅÅ.MM.DD-format til MM/DD/ÅÅÅÅ-format.
Sub ExampleUSDate
Dim sInput As String
Dim sUS_date As String
sInput = InputBox("Skriv inn en dato i internasjonalt format 'ÅÅÅÅ-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