Mid Function, Mid Statement

Π’ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ ΡƒΠΊΠ°Π·Π°Π½Π½ΡƒΡŽ Ρ‡Π°ΡΡ‚ΡŒ строки (функция Mid) ΠΈΠ»ΠΈ замСняСт эту Ρ‡Π°ΡΡ‚ΡŒ строки Π΄Ρ€ΡƒΠ³ΠΎΠΉ строкой (инструкция Mid).

Syntax:


Mid (ВСкст As String, Начало As Long [, Π”Π»ΠΈΠ½Π° As Long]) ΠΈΠ»ΠΈ Mid (ВСкст As String, Начало As Long , Π”Π»ΠΈΠ½Π° As Long, ВСкст As String)

Return value:

String (Ρ‚ΠΎΠ»ΡŒΠΊΠΎ для Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ)

Parameters:

ВСкст. Π›ΡŽΠ±Π°Ρ строка, ΠΊΠΎΡ‚ΠΎΡ€ΡƒΡŽ Π½ΡƒΠΆΠ½ΠΎ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ.

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.

Если ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€ Π”Π»ΠΈΠ½Π° Π² Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ Mid ΠΎΠΏΡƒΡ‰Π΅Π½, Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°ΡŽΡ‚ΡΡ всС символы Π² строковом Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠΈ ΠΎΡ‚ ΠΏΠΎΠ·ΠΈΡ†ΠΈΠΈ Начало Π΄ΠΎ ΠΊΠΎΠ½Ρ†Π° этой строки.

Если ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€ Π”Π»ΠΈΠ½Π° Π² инструкции Mid мСньшС, Ρ‡Π΅ΠΌ Π΄Π»ΠΈΠ½Π° замСняСмого тСкста, ΠΎΠ½ Π±ΡƒΠ΄Π΅Ρ‚ сокращСн Π΄ΠΎ ΡƒΠΊΠ°Π·Π°Π½Π½ΠΎΠΉ Π΄Π»ΠΈΠ½Ρ‹.

ВСкст. Π‘Ρ‚Ρ€ΠΎΠΊΠ°, которая Π΄ΠΎΠ»ΠΆΠ½Π° Π·Π°ΠΌΠ΅Π½ΠΈΡ‚ΡŒ строковоС Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅ (инструкция Mid).

Error codes:

5 ΠΠ΅ΠΏΡ€Π°Π²ΠΈΠ»ΡŒΠ½Ρ‹ΠΉ Π²Ρ‹Π·ΠΎΠ² ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Ρ‹

Example:


Sub ExampleUSDate
Dim sInput As String
Dim sUS_date As String
    sInput = InputBox("ΠŸΠΎΠΆΠ°Π»ΡƒΠΉΡΡ‚Π°, Π²Π²Π΅Π΄ΠΈΡ‚Π΅ Π΄Π°Ρ‚Ρƒ Π² ΠΌΠ΅ΠΆΠ΄ΡƒΠ½Π°Ρ€ΠΎΠ΄Π½ΠΎΠΌ Ρ„ΠΎΡ€ΠΌΠ°Ρ‚Π΅ Π“Π“Π“Π“-ММ-Π”Π”")
    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