IBM Lotus Symphony
|
文字列表式の中から指定部分を取得して返す (Mid 関数) か、該当部分を他の文字列に置き換えます (Mid ステートメント)。
Mid (Text As String, Start As Long [, Length As Long]) または Mid (Text As String, Start As Long , Length As Long, Text As String)
文字列 (関数のみ)
Text: 操作対象とする文字列表式。
Start: 指定文字列中での、取得または置換の開始文字位置を示す数式。指定できる最大値は 65535 です。
Length: 取得または置換する文字の長さを示す数式。指定できる最大値は 65535 です。
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