Mid Function, Mid Statement

Mid ν•¨μˆ˜λŠ” λ¬Έμžμ—΄ μ‹μ˜ μ§€μ •λœ 일뢀λ₯Ό κ΅¬ν•˜λ©°, Mid 문은 λ¬Έμžμ—΄ μ‹μ˜ μ§€μ •λœ 일뢀λ₯Ό λ‹€λ₯Έ λ¬Έμžμ—΄λ‘œ λ°”κΏ‰λ‹ˆλ‹€.

ꡬ문:

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

λ°˜ν™˜ κ°’:

String (only by Function)

맀개 λ³€μˆ˜:

Text: μˆ˜μ •ν•  μž„μ˜μ˜ λ¬Έμžμ—΄ μ‹μž…λ‹ˆλ‹€.

μ‹œμž‘: λ¬Έμžμ—΄ λ‚΄μ—μ„œ λ°”κΎΈκ±°λ‚˜ λ°˜ν™˜ν•  λ¬Έμžμ—΄ 뢀뢄이 μ‹œμž‘λ˜λŠ” 문자 μœ„μΉ˜λ₯Ό λ‚˜νƒ€λ‚΄λŠ” 숫자 μ‹μž…λ‹ˆλ‹€. ν—ˆμš©λ˜λŠ” μ΅œλŒ€κ°’μ€ 65535μž…λ‹ˆλ‹€.

Length: λ°”κΎΈκ±°λ‚˜ ν‘œμ‹œν•  문자 수λ₯Ό κ΅¬ν•˜λŠ” μ •μˆ˜ μ‹μž…λ‹ˆλ‹€.

Mid ν•¨μˆ˜μ˜ Length 맀개 λ³€μˆ˜λ₯Ό μƒλž΅ν•  경우 μ‹œμž‘ μœ„μΉ˜μ—μ„œ λ¬Έμžμ—΄μ˜ λκΉŒμ§€ λ¬Έμžμ—΄ μ‹μ˜ λͺ¨λ“  λ¬Έμžκ°€ κ΅¬ν•΄μ§‘λ‹ˆλ‹€.

Mid 문의 Length 맀개 λ³€μˆ˜κ°€ λ°”κΏ€ ν…μŠ€νŠΈμ˜ 길이보닀 μž‘μ„ 경우 ν…μŠ€νŠΈλŠ” μ§€μ •ν•œ 길이둜 μ€„μ–΄λ“­λ‹ˆλ‹€.

Text: λ¬Έμžμ—΄ 식을 λ°”κΏ€ λ¬Έμžμ—΄μž…λ‹ˆλ‹€(Mid λ¬Έ).

Error codes:

5 잘λͺ»λœ ν”„λ‘œμ‹œμ € ν˜ΈμΆœμž…λ‹ˆλ‹€.

예:

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