LibreOffice 7.5 Help
αααα‘ααβαααααβαααβααΆαβαααααΆααβββααβααααααβααααβα’αααα (α’αα»αααα Mid) α¬βαααα½αβαααααβααβααααααβααααβα’ααααβαα½αβααΆαα½αβααααβα’ααααβαα½αβααα (ααα ααααΈβαααααβααΆααα Mid)Β α
Mid (Text As String, Start As Long [, Length As Long]) or Mid (Text As String, Start As Long , Length As Long, Text As String)
ααααβα’αααα (ααβαααβα’αα»αααα)
Text α ααααααβααααβα’ααααβααΆβαα½α αααβα’αααβα ααβααααααΒ α
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.
ααααα·αβααΎβαααΆαααααααα Length αααα»α α’αα»αααα Mid ααααΌαβααΆαβαα»α αα½βα’ααααβααΆααα’ααβαααα»αβααααααβααααβα’ααααβααΈβααΈααΆααβα αΆααααααΎαβαα αΌαβαααβα α»αβααβααααβα’ααααβααααΌαβααΆαβαααα‘ααΒ α
ααααα·αβααΎβαααΆαααΆαααααα Length αααα»α ααα ααααΈβαααααβααΆααα Mid αα·α βααΆαβααααααβα’αααααβαααβα’αααβα ααβαααα½α α’αααααβααααΌαβααΆαβαααααβααβααααΉαβααααααβααΆααααΆααβαα½αΒ α
Text α ααααβα’ααααβααΎααααΈβαααα½αβααααααβααααβα’αααα (ααα ααααΈβαααααβααΆααα Mid)Β α
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