Mid Function, Mid Statement

(Mid рдкреНрд░рдХрд╛рд░реНрдп)рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рдХреЛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рднрд╛рдЧ рдлрд░реНрдХрд╛рдЙрдБрдЫ,рд╡рд╛ рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рдХреЛ рднрд╛рдЧ рдЕрд░реНрдХреЛ рд╕реНрдЯреНрд░рд┐рдЩ (Mid рдХрдерди)рд╕рдБрдЧ рдкреНрд░рддрд┐рд╕реНрдерд╛рдкрди рдЧрд░реНрджрдЫ ред

Syntax:


Mid (рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ рдкрд╛рда, рд▓рд╛рдореЛ рд░реВрдкрдорд╛ рд╕реБрд░реБ [, рд▓рд╛рдореЛ рд░реВрдкрдорд╛ рд▓рдореНрдмрд╛рдЗ])рд╡рд╛ Mid (рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ рдкрд╛рда, рд▓рд╛рдореЛ рд░реВрдкрдорд╛ рдкрд╛рда , рд▓рд╛рдореЛ рд░реВрдкрдорд╛ рд╕реБрд░реБрдЖрдд, рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ рдкрд╛рда)

Return value:

рд╕реНрдЯреНрд░рд┐рдЩ (рдкреНрд░рдХрд╛рд░реНрдпрджреНрд╡рд╛рд░рд╛ рдорд╛рддреНрд░)

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 рдХрдерди)рд▓рд╛рдИ рдкреНрд░рддрд┐рд╕реНрдерд╛рдкрди рдЧрд░реНрджрдЫ ред

рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

Example:


Sub ExampleUSDate
Dim sInput As String
Dim sUS_date As String
    sInput = рдЖрдЧрдд рдордЮреНрдЬреВрд╖рд╛("рдХреГрдкрдпрд╛ рдЕрдиреНрддрд░рд░рд╛рд╖реНрдЯреНрд░рд┐рдп рдврд╛рдБрдЪрд╛ '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

Please support us!