IBM Lotus Symphony
|
Gibt den angegebenen Teil eines Zeichenfolgeausdrucks zurück (Mid-Funktion) oder ersetzt ihn durch eine andere Zeichenfolge (Mid-Anweisung).
Mid (Text As String, Anfang As Long [, Laenge As Long]) oder Mid (Text As String, Anfang As Long , Laenge As Long, Text As String)
String (nur nach Funktion)
Text: Ein beliebiger Zeichenfolgeausdruck, den Sie bearbeiten möchten.
Anfang: Numerischer Ausdruck, der die Zeichenposition in der Zeichenfolge angibt, an welcher der zu ersetzende oder zurückzugebende Zeichenfolgeabschnitt anfängt. Der maximal zulässige Wert ist 65535.
Laenge: Numerischer Ausdruck, der die Anzahl der Zeichen angibt, die Sie ersetzen oder zurückgeben möchten. Der maximal zulässige Wert ist 65535.
Entfällt bei der Mid-Funktion die Angabe zu Laenge, werden alle Zeichen ab der angegebenen Position bis zum letzten Zeichen der Zeichenfolge ermittelt.
Ist der Längenparameter der Mid-Anweisung kleiner als die Länge des zu ersetzenden Texts, so wird der Text auf die angegebene Länge gekürzt.
Text:Die Zeichenfolge, durch die der Zeichenfolgeabschnitt ersetzt werden soll (Mid-Anweisung).
Sub ExampleGermanDate
Dim sInput As String
Dim sGe_date As String
sInput = InputBox("Geben Sie ein Datum im englischen Format MM-TT-JJJJ ein")
sUS_date = Mid(sInput, 6, 2)
sGe_date = sGe_date & "."
sGe_date = sGe_date & Left(sInput, 2)
sGe_date = sGe_date & "."
sGe_date = sGe_date & Right(sInput, 4)
MsgBox sGe_date
End Sub