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