IBM Lotus Symphony
|
Powoduje zwrócenie określonego fragmentu łańcucha (Funkcja Mid) lub zastąpienie fragmentu łańcucha innym łańcuchem (Instrukcja Mid).
Mid (Tekst As String, Początek As Long [, Długość As Long]) albo Mid (Tekst As String, Początek As Long , Długość As Long, Tekst As String)
Łańcuch (tylko w przypadku funkcji)
Tekst: Dowolny łańcuch do zmodyfikowania.
Początek: Wyrażenie liczbowe wskazujące w łańcuchu pozycję znaku, od którego zaczyna się fragment do zmiany lub zwrócenia. Maksymalna dozwolona wartość to 65535.
Długość: Wyrażenie liczbowe określające liczbę znaków do zwrócenia lub zastąpienia. Maksymalna dozwolona wartość to 65535.
Jeśli parametr Długość w funkcji Mid zostanie pominięty, zwrócone zostaną wszystkie znaki od pozycji początkowej do końca łańcucha.
Jeśli parametr Długość w instrukcji Mid wynosi mniej niż długość zastępowanego tekstu, tekst ten zostanie skrócony do określonej długości.
Tekst: Łańcuch, który ma zastąpić modyfikowany łańcuch (instrukcja Mid).
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