LibreOffice 7.4 Help
ΠΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΡΠΊΠ°Π·Π°Π½Π½ΡΡ ΡΠ°ΡΡΡ ΡΡΡΠΎΠΊΠΈ (ΡΡΠ½ΠΊΡΠΈΡ Mid) ΠΈΠ»ΠΈ Π·Π°ΠΌΠ΅Π½ΡΠ΅Ρ ΡΡΡ ΡΠ°ΡΡΡ ΡΡΡΠΎΠΊΠΈ Π΄ΡΡΠ³ΠΎΠΉ ΡΡΡΠΎΠΊΠΎΠΉ (ΠΈΠ½ΡΡΡΡΠΊΡΠΈΡ Mid).
Mid (Π’Π΅ΠΊΡΡ As String, ΠΠ°ΡΠ°Π»ΠΎ As Long [, ΠΠ»ΠΈΠ½Π° As Long]) ΠΈΠ»ΠΈ Mid (Π’Π΅ΠΊΡΡ As String, ΠΠ°ΡΠ°Π»ΠΎ As Long , ΠΠ»ΠΈΠ½Π° As Long, Π’Π΅ΠΊΡΡ As String)
String (ΡΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ ΡΡΠ½ΠΊΡΠΈΠΈ)
Π’Π΅ΠΊΡΡ. ΠΡΠ±Π°Ρ ΡΡΡΠΎΠΊΠ°, ΠΊΠΎΡΠΎΡΡΡ Π½ΡΠΆΠ½ΠΎ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ.
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.
ΠΡΠ»ΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ ΠΠ»ΠΈΠ½Π° Π² ΡΡΠ½ΠΊΡΠΈΠΈ Mid ΠΎΠΏΡΡΠ΅Π½, Π²ΠΎΠ·Π²ΡΠ°ΡΠ°ΡΡΡΡ Π²ΡΠ΅ ΡΠΈΠΌΠ²ΠΎΠ»Ρ Π² ΡΡΡΠΎΠΊΠΎΠ²ΠΎΠΌ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠΈ ΠΎΡ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ ΠΠ°ΡΠ°Π»ΠΎ Π΄ΠΎ ΠΊΠΎΠ½ΡΠ° ΡΡΠΎΠΉ ΡΡΡΠΎΠΊΠΈ.
ΠΡΠ»ΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ ΠΠ»ΠΈΠ½Π° Π² ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠΈ Mid ΠΌΠ΅Π½ΡΡΠ΅, ΡΠ΅ΠΌ Π΄Π»ΠΈΠ½Π° Π·Π°ΠΌΠ΅Π½ΡΠ΅ΠΌΠΎΠ³ΠΎ ΡΠ΅ΠΊΡΡΠ°, ΠΎΠ½ Π±ΡΠ΄Π΅Ρ ΡΠΎΠΊΡΠ°ΡΠ΅Π½ Π΄ΠΎ ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠΉ Π΄Π»ΠΈΠ½Ρ.
Π’Π΅ΠΊΡΡ. Π‘ΡΡΠΎΠΊΠ°, ΠΊΠΎΡΠΎΡΠ°Ρ Π΄ΠΎΠ»ΠΆΠ½Π° Π·Π°ΠΌΠ΅Π½ΠΈΡΡ ΡΡΡΠΎΠΊΠΎΠ²ΠΎΠ΅ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ (ΠΈΠ½ΡΡΡΡΠΊΡΠΈΡ Mid).
Sub ExampleUSDate
Dim sInput As String
Dim sUS_date As String
sInput = InputBox("ΠΠΎΠΆΠ°Π»ΡΠΉΡΡΠ°, Π²Π²Π΅Π΄ΠΈΡΠ΅ Π΄Π°ΡΡ Π² ΠΌΠ΅ΠΆΠ΄ΡΠ½Π°ΡΠΎΠ΄Π½ΠΎΠΌ ΡΠΎΡΠΌΠ°ΡΠ΅ ΠΠΠΠ-ΠΠ-ΠΠ")
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