IBM Lotus Symphony
|
Powoduje zwrócenie określonej liczby znaków położonych najbardziej z lewej strony łańcucha.
Left (Tekst As String, n As Long)
Łańcuch
Tekst: Łańcuch, z którego mają zostać zwrócone znaki położone najbardziej z lewej strony.
n: Wyrażenie liczbowe określające liczbę znaków do zwrócenia. W przypadku n = 0 zwracany jest łańcuch o długości zero. Maksymalna dozwolona wartość to 65535.
Poniższy przykładowy kod powoduje przekształcenie daty z formatu RRRR-MM-DD w format MM/DD/RRRR.
Sub Przyklad_Data_US
Dim sWejscie As String
Dim sDataUS As String
sWejscie = InputBox("Proszę podać datę w formacie 'RRRR-MM-DD'")
sDataUS = Mid(sWejscie, 6, 2)
sDataUS = sDataUS & "/"
sDataUS = sDataUS & Right(sWejscie, 2)
sDataUS = sDataUS & "/"
sDataUS = sDataUS & Left(sWejscie, 4)
MsgBox sDataUS
End Sub