IBM Lotus Symphony


Funktionen/sætningen Mid [Runtime]

Returnerer den angivne del af et strengudtryk (funktionen Mid) eller erstatter en del af et strengudtryk med en anden streng (sætningen Mid).

Syntaks:

Mid (Tekst As String, Start As Long [, Lgd As Long]) eller Mid (Tekst As String, Start As Long , Lgd As Long, Tekst As String)

Returværdi:

String (kun for funktionen)

Parametre:

Tekst: Et strengudtryk, der skal ændres.

Start: Numerisk udtryk, der angiver den tegnposition i strengen, hvor den del af strengen, du vil erstatte eller returnere, begynder. Den største værdi, der er tilladt, er 65535.

Lgd: Numerisk udtryk, der angiver det antal tegn, der skal erstattes eller returneres. Den største værdi, der er tilladt, er 65535.

Hvis parameteren Lgd (længde) udelades i funktionen Mid, returneres alle tegn i strengudtrykket fra begyndelsen til slutningen af strengen.

Hvis længdeparameteren i sætningen Mid er mindre end længden på den tekst, der skal erstattes, afkortes teksten til den angivne længde.

Tekst: Den streng, der skal erstatte strengudtrykket (sætningen Mid).

Fejlkoder

5 Ugyldigt procedurekald

Eksempel:

Sub EksempelUSDato

Dim sInput As String

Dim sUS_dato As String

sInput = InputBox("Angiv en dato i internationalt format: 'ÅÅÅÅ-MM-DD'")

sUS_dato = Mid(sInput, 6, 2)

sUS_dato = sUS_dato & "/"

sUS_dato = sUS_dato & Right(sInput, 2)

sUS_dato = sUS_dato & "/"

sUS_dato = sUS_dato & Left(sInput, 4)

MsgBox sUS_dato

End Sub


Produktfeedback | Yderligere dokumentation | Varemærker