Mid Function, Mid Statement
ΠΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΡΠΊΠ°Π·Π°Π½Π½ΡΡ ΡΠ°ΡΡΡ ΡΡΡΠΎΠΊΠΈ (ΡΡΠ½ΠΊΡΠΈΡ Mid) ΠΈΠ»ΠΈ Π·Π°ΠΌΠ΅Π½ΡΠ΅Ρ ΡΡΡ ΡΠ°ΡΡΡ ΡΡΡΠΎΠΊΠΈ Π΄ΡΡΠ³ΠΎΠΉ ΡΡΡΠΎΠΊΠΎΠΉ (ΠΈΠ½ΡΡΡΡΠΊΡΠΈΡ Mid).
Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ
Mid (Π’Π΅ΠΊΡΡ As String, ΠΠ°ΡΠ°Π»ΠΎ As Long [, ΠΠ»ΠΈΠ½Π° As Long]) ΠΈΠ»ΠΈ Mid (Π’Π΅ΠΊΡΡ As String, ΠΠ°ΡΠ°Π»ΠΎ As Long , ΠΠ»ΠΈΠ½Π° As Long, Π’Π΅ΠΊΡΡ As String)
ΠΠΎΠ·Π²ΡΠ°ΡΠ°Π΅ΠΌΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅:
String (ΡΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ ΡΡΠ½ΠΊΡΠΈΠΈ)
ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ:
Π’Π΅ΠΊΡΡ. ΠΡΠ±Π°Ρ ΡΡΡΠΎΠΊΠ°, ΠΊΠΎΡΠΎΡΡΡ Π½ΡΠΆΠ½ΠΎ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ.
ΠΠ°ΡΠ°Π»ΠΎ. Π§ΠΈΡΠ»ΠΎΠ²ΠΎΠ΅ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΡΠΊΠ°Π·ΡΠ²Π°Π΅Ρ ΠΏΠΎΠ·ΠΈΡΠΈΡ ΡΠΈΠΌΠ²ΠΎΠ»Π° Π² ΡΡΡΠΎΠΊΠ΅, Π³Π΄Π΅ Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ ΡΠ°ΡΡΡ ΡΡΡΠΎΠΊΠΈ, ΠΏΠΎΠ΄Π»Π΅ΠΆΠ°ΡΠ°Ρ Π²ΠΎΠ·Π²ΡΠ°ΡΡ ΠΈΠ»ΠΈ Π·Π°ΠΌΠ΅Π½Π΅. ΠΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎ Π΄ΠΎΠΏΡΡΡΠΈΠΌΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ - 65535.
ΠΠ»ΠΈΠ½Π°. Π§ΠΈΡΠ»ΠΎΠ²ΠΎΠ΅ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅, Π²ΠΎΠ·Π²ΡΠ°ΡΠ°ΡΡΠ΅Π΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ Π΄ΠΎΠ»ΠΆΠ½Ρ Π±ΡΡΡ Π·Π°ΠΌΠ΅Π½Π΅Π½Ρ ΠΈΠ»ΠΈ Π²ΠΎΠ·Π²ΡΠ°ΡΠ΅Π½Ρ. ΠΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎ Π΄ΠΎΠΏΡΡΡΠΈΠΌΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ - 65535.
ΠΡΠ»ΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ ΠΠ»ΠΈΠ½Π° Π² ΡΡΠ½ΠΊΡΠΈΠΈ 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