LibreOffice 7.5 Help
āĻāĻāĻāĻŋ āϏā§āĻā§āϰāĻŋāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύā§āϰ āĻāϞā§āϞā§āĻāĻŋāϤ āĻ āĻāĻļ āĻĒā§āϰāĻĻāĻžāύ āĻāϰ⧠āĻĨāĻžāĻā§ (āĻŽāϧā§āϝāĻŦāϰā§āϤ⧠āĻĢāĻžāĻāĻļāύ), āĻ āĻĨāĻŦāĻž āĻ āύā§āϝ āĻāĻāĻāĻŋ āϏā§āĻā§āϰāĻŋāĻ āĻāϰ āĻŽāĻžāϧā§āϝāĻŽā§ āϏā§āĻā§āϰāĻŋāĻāĻāĻŋāϰ āĻ āĻāĻļ āĻĒā§āϰāϤāĻŋāϏā§āĻĨāĻžāĻĒāύ āĻāϰ⧠āĻĨāĻžāĻā§ (āĻŽāϧā§āϝāĻŦāϰā§āϤ⧠āϏā§āĻā§āĻāĻŽā§āύā§āĻ )āĨ¤
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)
āϞā§āĻ: āϝā§āĻā§āύ⧠āϏā§āĻā§āϰāĻŋāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āϝāĻž āĻāĻĒāύāĻŋ āĻĒāϰāĻŋāĻŦāϰā§āϤāύ āĻāϰāϤ⧠āĻāĻžāύāĨ¤
Start: Numeric expression that indicates the character position within the string where the string portion that you want to replace or to return begins. The minimum allowed value is 1. The maximum allowed value is 2,147,483,648.
Length: Numeric expression that returns the number of characters that you want to replace or return. The maximum allowed value is 2,147,483,648.
āϝāĻĻāĻŋ āĻŽāϧā§āϝāĻŦāϰā§āϤ⧠āĻĢāĻžāĻāĻļāύ āĻāϰ āĻĻā§āϰā§āĻā§āϝ āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ āĻŦāĻžāĻĻ āĻĻā§ā§āĻž āĻšāϝāĻŧ āϤāĻžāĻšāϞ⧠āώā§āĻā§āϰāĻŋāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύāϰ āĻļā§āϰā§āϰ āĻ āĻŦāϏā§āĻĨāĻžāύ āĻĨā§āĻā§ āώā§āĻā§āϰāĻŋāĻ āĻāϰ āĻļā§āώ āĻĒāϰā§āϝāύā§āϤ āϏāĻŦ āĻ āĻā§āώāϰ āĻĒā§āϰāĻĻāĻžāύ āĻāϰāĻž āĻšā§āĨ¤
āĻāĻĒāύāĻŋ āϝ⧠āĻĒāĻžāĻ ā§āϝāĻāĻŋ āĻĒā§āϰāϤāĻŋāϏā§āĻĨāĻžāĻĒāύ āĻāϰāϤ⧠āĻāĻžāύ āϤāĻžāϰ āĻĻā§āϰā§āĻā§āϝ āϝāĻĻāĻŋ āĻŽāϧā§āϝāĻŦāϰā§āϤ⧠āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻāϰ āĻĻā§āϰā§āĻā§āϝ āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ āĻā§ā§ā§ āĻŦā§ āĻšā§ āϤāĻžāĻšāϞ⧠āĻĒāĻžāĻ ā§āϝāĻāĻŋ āĻāϞā§āϞā§āĻāĻŋāϤ āĻĻā§āϰā§āĻā§āϝ⧠āĻšā§āϰāĻžāϏ āĻĒāĻžā§āĨ¤
āĻĒāĻžāĻ ā§āϝ: āϏā§āĻā§āϰāĻŋāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āĻĒā§āϰāϤāĻŋāϏā§āĻĨāĻžāĻĒāύ āĻāϰāϤ⧠āϏā§āĻā§āϰāĻŋāĻ ( āĻŽāϧā§āϝāĻŦāϰā§āϤ⧠āϏā§āĻā§āĻāĻŽā§āύā§āĻ)āĨ¤
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