Mid Function, Mid Statement

ត្រឡប់ផ្នែកដែលបានបញ្ជាក់នៃកន្សោមខ្សែអក្សរ (អនុគមន៍ 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 ៖ កន្សោមខ្សែអក្សរណាមួយ ដែលអ្នកចង់កែប្រែ ។

ចាប់ផ្តើម ៖ កន្សោមលេខដែលចង្អុលបង្ហាញទីតាំងរបស់តួអក្សរក្នុងខ្សែអក្សរ ដែលទីតាំងរបស់ខ្សែអក្សរដែលអ្នកចង់ជំនួស ឬ ត្រឡប់ចាប់ផ្តើម ។ តម្លៃដែលអនុញ្ញាតអតិបរមាគឺ 65535 ។

ប្រវែង ៖ កន្សោមលេខដែលត្រឡប់ចំនួនតួអក្សរ ដែលអ្នកចង់ជំនួស ឬត្រឡប់ ។ តម្លៃដែលអនុញ្ញាតអតិបរមាគឺ 65535 ។

ប្រសិនបើប៉ារ៉ម៉ែត្រ Length ក្នុង អនុគមន៍ Mid ត្រូវបានលុប តួអក្សរទាំងអស់ក្នុងកន្សោមខ្សែអក្សរពីទីតាំងចាប់ផ្តើមរហូតដល់ចុងនៃខ្សែអក្សរត្រូវបានត្រឡប់ ។

ប្រសិនបើប៉ារ៉ាម៉ែត្រ Length ក្នុង សេចក្តីថ្លែងការណ៍ Mid តិចជាងប្រវែងអត្ថបទដែលអ្នកចង់ជំនួស អត្ថបទត្រូវបានបន្ថយមកត្រឹមប្រវែងជាក់លាក់មួយ ។

Text ៖ ខ្សែអក្សរដើម្បីជំនួសកន្សោមខ្សែអក្សរ (សេចក្តីថ្លែងការណ៍ Mid) ។

Error codes:

5 ការហៅបែបបទមិនត្រឹមត្រូវ

ឧទាហរណ៍ ៖

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