Mid Function, Mid Statement
แแแ แฃแแแแก แกแขแ แแแแฃแแ แแแแแกแแฎแฃแแแแแก แแแแแแแแฃแ แแแฌแแแก (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)
แแแแ แฃแแแแฃแแ แแแแจแแแแแแแ:
แกแขแ แแแแ (แแฎแแแแ แคแฃแแฅแชแแแ)
Parameters:
แขแแฅแกแขแ: แแฅแแแแแแแก แ แแแแฅแขแแ แแแแกแแแแก แกแแกแฃแ แแแแ แแแแแกแแแแ แ แขแแฅแกแขแฃแ แ แแแแแกแแฎแฃแแแแ.
แกแขแแ แขแ: แ แแชแฎแแแแ แแแแแกแแฎแฃแแแแ แ แแแแแแช แแฆแแแจแแแแก แแกแ-แแแจแแแก แแแแแแ แแแแแก แกแขแ แแแแจแ. แกแแแแช แกแขแแแแแก แแฅแแแแแแแก แฉแแแแชแแแแแแกแแแแก แแ แแแแ แฃแแแแแกแแแแก แกแแกแฃแ แแแแ แแแ แชแแ แแฌแงแแแ. แแแฅแกแแแแแฃแ แ แแแกแแจแแแแ แแแแจแแแแแแแแ 65535.
แกแแแ แซแ: แ แแชแฎแแแแ แแแแแกแแฎแฃแแแแ แ แแแแแแช แแแ แฃแแแแก แแ แแกแ-แแแจแแแก แ แแแแแแแแแก, แ แแแแแก แฉแแแแชแแแแแ แแ แแแแ แฃแแแแ แแกแฃแ แ. แแแฅแกแแแแแฃแ แ แแแกแแจแแแแ แแแแจแแแแแแแแ 65535.
แแฃ แกแแแ แซแแก แแแ แแแแขแ แ Mid แคแฃแแฅแชแแแจแ แแแแแขแแแแแฃแแแ, แกแขแ แแแแแก แแแแแกแแฎแฃแแแแแจแ แงแแแแ แแกแ-แแแจแแแ แแแแ แฃแแแแแ แกแแฌแงแแกแแแแ แกแแแแแแ แแแแแชแแแแแ.
แแฃ แกแแแ แซแแก แแแ แแแแขแ แ Mid แแแแฃแแแแแจแ แแแแแแแแ แฉแแกแแแแชแแแแแแแ แขแแฅแกแขแแก แกแแแ แซแแแ, แขแแฅแกแขแ แจแแแชแแ แแแแ แแแแแแแแฃแ แกแแแ แซแแแแ.
แขแแฅแกแขแ: แกแขแ แแแแฃแแ แแแแแกแแฎแฃแแแแแก แฉแแกแแแแชแแแแแแแ แกแขแ แแแแ.(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