Mid Function, Mid Statement

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

Бинтаксис

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

Π’ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅ΠΌΠΎΠ΅ Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅:

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

ΠŸΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹:

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

Начало. ЧисловоС Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅, ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠ΅ ΡƒΠΊΠ°Π·Ρ‹Π²Π°Π΅Ρ‚ ΠΏΠΎΠ·ΠΈΡ†ΠΈΡŽ символа Π² строкС, Π³Π΄Π΅ начинаСтся Ρ‡Π°ΡΡ‚ΡŒ строки, подлСТащая Π²ΠΎΠ·Π²Ρ€Π°Ρ‚Ρƒ ΠΈΠ»ΠΈ Π·Π°ΠΌΠ΅Π½Π΅. Максимально допустимоС Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ - 65535.

Π”Π»ΠΈΠ½Π°. ЧисловоС Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅, Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°ΡŽΡ‰Π΅Π΅ количСство символов, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ Π΄ΠΎΠ»ΠΆΠ½Ρ‹ Π±Ρ‹Ρ‚ΡŒ Π·Π°ΠΌΠ΅Π½Π΅Π½Ρ‹ ΠΈΠ»ΠΈ Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π΅Π½Ρ‹. Максимально допустимоС Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ - 65535.

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

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

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

Error codes:

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

ΠŸΡ€ΠΈΠΌΠ΅Ρ€:

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