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 ๋ฌธ).
์:
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