IBM Lotus Symphony
|
Returnerer den angitte delen av et strenguttrykk (Mid-funksjonen), eller erstatter den delen av et strenguttrykk med en annen streng (Mid-setningen).
Mid (Tekst som Streng, Start som Lang [, Lengde som Lang]) eller Mid (Tekst som Streng, Start som Lang , Lengde som Lang, Tekst som Streng)
Streng (bare etter Funksjon)
Tekst: Et strenguttrykk som du vil endre.
Start: Numerisk uttrykk som angir tegnposisjonen i strengen der den delen av strengen du vil erstatte eller returnere, starter. Maksimal tillatt verdi er 65535.
Lengde: Numerisk uttrykk som returnerer det antall tegn du vil erstatte eller returnere. Maksimal tillatt verdi er 65535.
Hvis lengdeparameteren i Mid-funksjonen er utelatt, blir alle tegnene i strenguttrykket fra startposisjonen til slutten av strengen, returnert.
Hvis lengdeparameteren i Mid-setningen er mindre enn lengden av teksten du vil erstatte, blir teksten forkortet til den angitte lengden.
Tekst: Strengen som skal erstatte strenguttrykket (Mid-setningen).
Sub ExampleUSDate
Dim sInput As String
Dim sUS_date As String
sInput = InputBox("Skriv inn en dato i internasjonalt format 'ÅÅÅÅ-MM-DD'")
sUS_date = Mid(sInput, 6, 2)
sUS_date = sUS_date & "/"
sUS_date = sUS_date & Right(sInput, 2)
sUS_date = sUS_date & "/"
sUS_date = sUS_date & Left(sInput, 4)
MsgBox sUS_date
End Sub