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