Mid Function, Mid Statement
āĻāĻāĻāĻŋ āϏā§āĻā§āϰāĻŋāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύā§āϰ āĻāϞā§āϞā§āĻāĻŋāϤ āĻ āĻāĻļ āĻĒā§āϰāĻĻāĻžāύ āĻāϰ⧠āĻĨāĻžāĻā§ (āĻŽāϧā§āϝāĻŦāϰā§āϤ⧠āĻĢāĻžāĻāĻļāύ), āĻ āĻĨāĻŦāĻž āĻ āύā§āϝ āĻāĻāĻāĻŋ āϏā§āĻā§āϰāĻŋāĻ āĻāϰ āĻŽāĻžāϧā§āϝāĻŽā§ āϏā§āĻā§āϰāĻŋāĻāĻāĻŋāϰ āĻ āĻāĻļ āĻĒā§āϰāϤāĻŋāϏā§āĻĨāĻžāĻĒāύ āĻāϰ⧠āĻĨāĻžāĻā§ (āĻŽāϧā§āϝāĻŦāϰā§āϤ⧠āϏā§āĻā§āĻāĻŽā§āύā§āĻ )āĨ¤
āϏāĻŋāύāĻā§āϝāĻžāĻā§āϏ:
Mid (Text As String, Start As Long [, Length As Long]) or Mid (Text As String, Start As Long , Length As Long, Text As String)
āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ:
String (only by Function)
āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ:
āϞā§āĻ: āϝā§āĻā§āύ⧠āϏā§āĻā§āϰāĻŋāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āϝāĻž āĻāĻĒāύāĻŋ āĻĒāϰāĻŋāĻŦāϰā§āϤāύ āĻāϰāϤ⧠āĻāĻžāύāĨ¤
āĻļā§āϰā§: āϏāĻāĻā§āϝāĻžāϏā§āĻāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āϝāĻž āώā§āĻā§āϰāĻŋāĻ āĻāϰ āĻŽāϧā§āϝ⧠āĻ āĻā§āώāϰā§āϰ āĻ āĻŦāϏā§āĻĨāĻžāύ āύāĻŋāϰā§āĻĻā§āĻļ āĻāϰ⧠āϝā§āĻāĻžāύ⧠āĻāĻĒāύāĻŋ āĻĒā§āϰāϤāĻŋāϏā§āĻĨāĻžāĻĒāύ āĻāϰāϤ⧠āĻāĻžāύ āĻ āĻĨāĻŦāĻž āĻĒā§āϰāĻĻāĻžāύ āĻļā§āϰ⧠āĻāϰāϤ⧠āĻāĻžāύ āĻāĻŽāύ āώā§āĻā§āϰāĻŋāĻ āĻāϰ āĻ āĻāĻļāĻāĻŋ āĻŦāĻŋāĻĻā§āϝāĻŽāĻžāύāĨ¤ āϏāϰā§āĻŦā§āĻā§āĻ āĻ āύā§āĻŽā§āĻĻāĻŋāϤ āĻŽāĻžāύ āĻšāϞ⧠ā§Ŧā§Ģā§Ģā§Šā§ĢāĨ¤
āĻĻā§āϰā§āĻā§āϝ: āϏāĻāĻā§āϝāĻžāϏā§āĻāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āϝāĻž āĻāĻĒāύāĻŋ āϝāϤāϏāĻāĻā§āϝāĻ āĻ āĻā§āώāϰ āĻĒā§āϰāϤāĻŋāϏā§āĻĨāĻžāĻĒāύ āĻ āĻĨāĻŦāĻž āĻĒā§āϰāĻĻāĻžāύ āĻāϰāϤ⧠āĻāĻžāύ āϤāĻž āĻĒā§āϰāĻĻāĻžāύ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤ āĻ āύā§āĻŽā§āĻĻāĻŋāϤ āϏāϰā§āĻŦā§āĻā§āĻ āĻŽāĻžāύ āĻšāϞ⧠ā§Ŧā§Ģā§Ģā§Šā§ĢāĨ¤
āϝāĻĻāĻŋ āĻŽāϧā§āϝāĻŦāϰā§āϤ⧠āĻĢāĻžāĻāĻļāύ āĻāϰ āĻĻā§āϰā§āĻā§āϝ āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ āĻŦāĻžāĻĻ āĻĻā§ā§āĻž āĻšāϝāĻŧ āϤāĻžāĻšāϞ⧠āώā§āĻā§āϰāĻŋāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύāϰ āĻļā§āϰā§āϰ āĻ āĻŦāϏā§āĻĨāĻžāύ āĻĨā§āĻā§ āώā§āĻā§āϰāĻŋāĻ āĻāϰ āĻļā§āώ āĻĒāϰā§āϝāύā§āϤ āϏāĻŦ āĻ āĻā§āώāϰ āĻĒā§āϰāĻĻāĻžāύ āĻāϰāĻž āĻšā§āĨ¤
āĻāĻĒāύāĻŋ āϝ⧠āĻĒāĻžāĻ ā§āϝāĻāĻŋ āĻĒā§āϰāϤāĻŋāϏā§āĻĨāĻžāĻĒāύ āĻāϰāϤ⧠āĻāĻžāύ āϤāĻžāϰ āĻĻā§āϰā§āĻā§āϝ āϝāĻĻāĻŋ āĻŽāϧā§āϝāĻŦāϰā§āϤ⧠āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻāϰ āĻĻā§āϰā§āĻā§āϝ āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ āĻā§ā§ā§ āĻŦā§ āĻšā§ āϤāĻžāĻšāϞ⧠āĻĒāĻžāĻ ā§āϝāĻāĻŋ āĻāϞā§āϞā§āĻāĻŋāϤ āĻĻā§āϰā§āĻā§āϝ⧠āĻšā§āϰāĻžāϏ āĻĒāĻžā§āĨ¤
āĻĒāĻžāĻ ā§āϝ: āϏā§āĻā§āϰāĻŋāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āĻĒā§āϰāϤāĻŋāϏā§āĻĨāĻžāĻĒāύ āĻāϰāϤ⧠āϏā§āĻā§āϰāĻŋāĻ ( āĻŽāϧā§āϝāĻŦāϰā§āϤ⧠āϏā§āĻā§āĻāĻŽā§āύā§āĻ)āĨ¤
āĻāĻĻāĻžāĻšāϰāĻŖ:
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