IBM Lotus Symphony


Fonction Mid, Instruction Mid [Exécution]

Renvoie la partie spécifiée d'une expression de type chaîne de caractères (Fonction Mid), ou remplace une partie de l'expression de chaîne par une autre chaîne (Instruction Mid).

Syntaxe :

Mid (Text As String, Start As Long [, Length As Long]) or Mid (Text As String, Start As Long , Length As Long, Text As String)

Valeur de retour :

Chaîne de caractères (fonction Mid uniquement)

Paramètres :

Text : expression de type chaîne de caractères à modifier.

Start : expression numérique indiquant la position de caractère, dans la chaîne, où commence la partie de chaîne à remplacer ou à renvoyer. La valeur maximale autorisée est 65 535.

Length : expression numérique renvoyant le nombre de caractères à remplacer ou à renvoyer. La valeur maximale autorisée est 65 535.

En cas d'omission du paramètre Length dans la fonction Mid, tous les caractères de l'expression de type chaîne de caractères compris entre la position de début et la fin de la chaîne sont renvoyés.

Si le paramètre Length de l'instruction Mid est inférieur à la longueur du texte à remplacer, le texte est réduit à la longueur indiquée.

Text : chaîne de caractères devant remplacer l'expression de type chaîne de caractères (Instruction Mid).

Codes d'erreur

5 Appel de procédure incorrect

Exemple :

Sub ExampleUSDate

Dim sInput As String

Dim sUS_date As String

sInput = InputBox("Insérez une date au format international 'AAAA-MM-JJ'")

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


Commentaires en retour sur le produit | Documentation complémentaire | Marques