IBM Lotus Symphony
|
Palauttaa määritetyn osan merkkijonolausekkeesta (Mid-funktio) tai korvaa osan merkkijonolausekkeesta toisella merkkijonolla (Mid-lause).
Mid (Text As String, Start As Long [, Length As Long]) tai Mid (Text As String, Start As Long , Length As Long, Text As String)
Merkkijono (vain funktiossa)
Text: Mikä tahansa merkkijonolauseke, jota haluat muuttaa.
Start: Numeerinen lauseke, joka palauttaa merkkien sijainnin korvattavassa tai palautettavassa merkkijonossa. Suurin sallittu arvo on 65535.
Length: Numeerinen lauseke, joka palauttaa korvattavien tai palautettavien merkkien määrän. Suurin sallittu arvo on 65535.
Jos Mid-funktion Length-parametri puuttuu, merkkijonolausekkeen kaikki merkit alkukohdasta merkkijonon loppuun palautetaan.
Jos Mid-lauseen Length-parametri on pienempi kuin korvattavan tekstin pituus, teksti lyhennetään määritetyn pituiseksi.
Text: Merkkijono, joka korvaa merkkijonolausekkeen (Mid-lause).
Sub ExampleUSDate
Dim sInput As String
Dim sUS_date As String
sInput = InputBox("Please input a date in the international format 'YYYY-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