IBM Lotus Symphony
|
返回字符串表达式的指定部分(Mid 函数),或将字符串表达式的指定部分替换成另一个字符串(Mid 语句)。
Mid (Text As String, Start As Long [, Length As Long]) or 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