LibreOffice 7.1 Hjelp
Returnerer den oppgjevne delen av eit strenguttrykk (Mid-funksjonen) eller byter ut ein del av eit strenguttrykk med ein annan streng (Mid-uttrykket).
Mid (Tekst As String, Start As Long [, Lengd As Long]) or Mid (Tekst As String, Start As Long , Lengd As Long, Tekst As String)
Streng (berre med funksjon)
Tekst: Strenguttrykket som skal endrast.
Start: Numeric expression that indicates the character position within the string where the string portion that you want to replace or to return begins. The minimum allowed value is 1. The maximum allowed value is 2,147,483,648.
Length: Numeric expression that returns the number of characters that you want to replace or return. The maximum allowed value is 2,147,483,648.
Viss Lengd-parameteren i Mid-funksjonen ikkje vert brukt, vert alle tekna i strenguttrykket frå startplasseringa til slutten av strengen returnerte.
Viss Lengd-parameteren i Mid-uttrykket er mindre enn lengda av teksten som skal bytast ut, vert teksten redusert til den oppgjevne lengda.
Tekst: Strengen som skal erstatta strenguttrykket (Mid-uttrykket).
Sub ExampleUSDate
Dim sInput As String
Dim sUS_date As String
sInput = InputBox("Skriv inn ein dato i det internasjonale formatet 'Ã…Ã…Ã…Ã…-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