Mid Function, Mid Statement
文字列表式の中から指定部分を取得して返す (Mid 関数) か、該当部分を他の文字列に置き換えます (Mid ステートメント)。
構文:
Mid (Text As String, Start As Integer [, Length As Integer]) または Mid (Text As String, Start As Integer , Length As Integer, Text As String)
戻り値:
文字列 (関数のみ)
パラメーター:
Text: 操作対象とする文字列表式。
Start: 指定文字列中での、取得ないし置換の開始文字位置を示す整数表式。使用できる最大値は 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