Right Function
āĻāĻāĻāĻŋ āĻ¸ā§āĻā§āĻ°āĻŋāĻ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨ā§āĻ° āĻ¸āĻ°ā§āĻŦāĻĄāĻžāĻ¨ā§āĻ° "n" āĻ āĻā§āĻˇāĻ° āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°ā§āĨ¤
āĻāĻ°āĻ āĻĻā§āĻā§āĻ¨: āĻŦāĻžāĻŽ āĻĢāĻžāĻāĻļāĻ¨āĨ¤
āĻ¸āĻŋāĻ¨āĻā§āĻ¯āĻžāĻā§āĻ¸:
Right (Text As String, n As Long)
āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻŽāĻžāĻ¨:
āĻ¸ā§āĻā§āĻ°āĻŋāĻ
āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻāĻžāĻ°:
āĻĒāĻžāĻ ā§āĻ¯: āĻ¯ā§āĻā§āĻ¨ā§ āĻ¸ā§āĻā§āĻ°āĻŋāĻ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨ āĻāĻĒāĻ¨āĻŋ āĻ¯āĻžāĻ° āĻ¸āĻ°ā§āĻŦāĻĄāĻžāĻ¨ā§āĻ° āĻ āĻā§āĻˇāĻ° āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°āĻ¤ā§ āĻāĻžāĻ¨āĨ¤
n: āĻ¸āĻāĻā§āĻ¯āĻžāĻ¸ā§āĻāĻ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨ āĻ¯āĻž āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°āĻ¤ā§ āĻāĻžāĻ¨ āĻāĻŽāĻ¨ āĻ āĻā§āĻˇāĻ°ā§āĻ° āĻĒāĻ°āĻŋāĻŽāĻžāĻŖ āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŖ āĻāĻ°ā§ āĻĨāĻžāĻā§āĨ¤ āĻ¯āĻĻāĻŋ n = 0, āĻāĻāĻāĻŋ āĻļā§āĻ¨ā§āĻ¯ āĻĻā§āĻ°ā§āĻā§āĻ¯ā§āĻ° āĻˇā§āĻā§āĻ°āĻŋāĻ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°ā§ āĻĨāĻžāĻā§āĨ¤ āĻ¸āĻ°ā§āĻŦā§āĻā§āĻ āĻ āĻ¨ā§āĻŽā§āĻĻāĻŋāĻ¤ āĻŽāĻžāĻ¨ āĻšāĻ˛ā§ ā§Ŧā§Ģā§Ģā§Šā§ĢāĨ¤
āĻ¨āĻŋāĻā§āĻ° āĻāĻĻāĻžāĻšāĻ°āĻŖāĻāĻŋ āĻāĻāĻāĻŋ āĻ¤āĻžāĻ°āĻŋāĻā§āĻ° āĻŦāĻāĻ°-āĻŽāĻžāĻ¸-āĻĻāĻŋāĻ¨ āĻŦāĻŋāĻ¨ā§āĻ¯āĻžāĻ¸āĻā§ US āĻ¤āĻžāĻ°āĻŋāĻ āĻŦāĻŋāĻ¨ā§āĻ¯āĻžāĻ¸ā§ (āĻŽāĻžāĻ¸/āĻĻāĻŋāĻ¨/āĻŦāĻāĻ°) āĻ°ā§āĻĒāĻžāĻ¨ā§āĻ¤āĻ° āĻāĻ°ā§āĨ¤
āĻāĻĻāĻžāĻšāĻ°āĻŖ:
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