Left Function
Returns the number of leftmost characters that you specify of a string expression.
แกแแแขแแฅแกแ
แแแ แชแฎแแแ (แขแแฅแกแขแ แ แแแแ แช แกแขแ แแฅแแแ, n แ แแแแ แช แแ แซแแแ)
แแแแ แฃแแแแฃแแ แแแแจแแแแแแแ:
แกแขแ แแฅแแแแแ
Parameters:
แขแแฅแกแขแ: แแแแแกแแแแ แ แกแขแ แแแแฃแแ แแแแแกแแฎแฃแแแแ, แ แแแแแช แงแแแแแแ แแแ แฏแแแแ แแกแ-แแแจแแแแแก แแแแ แฃแแแแแช แแกแฃแ แ.
n:แชแแคแ แฃแแ แแแแแกแแฎแฃแแแแ, แ แแแแแแช แแแแกแแแฆแแ แแแก แกแแแแแแแแ แ แแชแฎแแก, แ แแแแแแแช แแแแแแ แแแแแ แฃแแแ. If n = 0, แแแแ-แกแแแ แซแแก แกแขแ แแฅแแแ แแ แแก แแแแ แฃแแแแฃแแ. แแแฅแกแแแฃแ แแแกแแจแแแแ แแแแจแแแแแแแแ 65535.
แจแแแแแแ แแแแแแแ แ แแแ แแแฅแแแแก แแแ แแฆแก แคแแ แแแขแจแ YYYY.MM.DD แคแแ แแแขแก MM/DD/YYYY แคแแ แแแขแจแ.
แแแแแแแแ:
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