IBM Lotus Symphony
|
Returnerer den angivne del af et strengudtryk (funktionen Mid) eller erstatter en del af et strengudtryk med en anden streng (sætningen Mid).
Mid (Tekst As String, Start As Long [, Lgd As Long]) eller Mid (Tekst As String, Start As Long , Lgd As Long, Tekst As String)
String (kun for funktionen)
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).
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